samazmzk的博客

(defun c:zjtc() (princ "\n增加1-9号图层") (setvar "cmdecho" 0) ; 关闭命令提示 (Setq osmode_bak (getvar "osmode")) ;_记录捕捉 (Setvar "osmode" 0) ;_关闭捕捉 (command "layer" "new" "_1" "c" "7" "_1" "") (command "layer" "new" "_2" "c" "5" "_2" "") (command "layer" "new" "_3" "c" "6" "_3" "") (command "layer" "new" "_4" "c" "4" "_4" "") (command "layer" "new" "_5" "c" "3" "_5" "") (command "layer" "new" "_6" "c" "2" "_6" "") (command "layer" "new" "_7

lisp初学者进阶案例，画 工字钢，学习排坐标，构建图形 (defun C:777(/ osm clay cm ort hh bb tt jj pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt22 pt33 pt44 pt55 pt66 pt77 pt88 ) (setq clay (getvar "clayer")) ;;图层 (setq cm (getvar "cmdecho")) ;;回显 (setq osm (getvar "osmode")) ;;抓点 (setq ort(getvar "orthomode"));;正交 (setvar "cmdecho" 0) (setvar "osmode" 0) (setvar "orthomode" 0) (command ".layer" "m" "S-STEL" "c" "111" "" "") (command "clayer" "S-STEL

;直线 ;方法 (command "LINE" 坐标 坐标 ...... "") ;|实例|;(command "LINE" getpoint getpoint "") ;多义线两种方式 ;方法 ;1、不闭合(command "Pline" 坐标 坐标 ....... "") ;2、闭合(command "Pline" 坐标 坐标 ....... "C") ;|实例|;(command "Pline" getpoint getpoint getpoint "C") ;射线 ;方法 (command "xline" 坐标 坐标 ....... "") ;|实例|;(command "xline" getpoint getpoint getpoint "") ;多边形 ;方法 ;1、内接圆(command "polygon" 边数目 中心点 "i" 半径) ;2、外切圆(command "polygon" 边数目 中心点 ....... "") ;3、边长 (command "polygon" 边数目 "e" ;|[边长]|; 端点1 端点2) ;|

主要用于五金模具设计,对五金模具设计来讲，我最得意的两个命令一个是WX，求最大外形,排料带的时候非常爽，还有一个是BS，画好图叠图的时候框选模板就会变色

10.塑铝板幕墙纵剖节点图（一） 11.复合铝板幕墙节点图（一）、（二） 12.塑铝板幕墙横剖节点图 13.玻璃幕墙及铝复合板横剖节点图（四） 14.塑铝板纵剖节点图（二） 15.塑铝板幕墙楼顶纵剖节点图

1.玻璃幕墙及铝复合板横剖节点图（一） 2.玻璃幕墙及铝合金型材节点图（一）～（八） 3.隐框幕墙及铝塑板幕墙节点图（一）～（十） 4.铝复合板阳角节点图 5.玻璃幕墙与铝复合板横剖节点图（二） 6.玻璃幕墙与铝复合板横剖节点图（三） 7.铝塑板阳角节点图 8.外墙干挂铝合金作法详图 9.铝复合板幕墙纵剖节点图

一、AutOLISP是何方神圣 ★AutoLISP是AutoCAD的最佳搭档！ ★AutoLISP内含于AutoCAD软件内，不用另外花钱买！ ★AutoLISP是强化AutoCAD最好、最直接的“程序语言”！ ★AutoLISP易学、易用，即使不会程序设计的AutoCAD用户，都能在最短的时间内写出令人惊讶、赞叹的功能！ ★若说AutoLISP的出现，是替AutoCAD创造一片天的“最大功臣”，一点也不夸张！ ★AutoLISP希望您去学习它、改善它、发挥它、享受它，真的！它的威力、魅力无穷！ 二、AutoLISP程序语言的特点分折 学习AutoLISP是非常容易的，对初学者而言，即使没有学习过任何的程序语言，都能很快上手，写出精彩漂亮的AutoLISP程序！ ★语法简单 不用特殊的变量定义，非常富有弹性．比起其他的程序语言，它的语法可说是非常简单而又有其独特的风格！ ★功能函数强大 除一般性的功能函数外，又拥有为数不少控制配合AutoCAO的特殊函数，再加上AutoLISP可直接调用执行所有AutoCAD的命令，以及掌握运用所有的AutoCAD系统变量，功能之强大令人欣喜不已！ ★撰写的环境不挑剃 只要是一般的窗口文本编辑软件都适用！如：记事本、WORDPAD、 EDIT、Visual LISP等。 ★直译式程序 不用再作编译，“即写即测、即测即用”，马上可以在AutoCAD中响应效果，马上就有成就感！

第一节 点支式玻璃幕墙 第二节 半隐型玻璃幕墙 第三节 吊挂式玻璃幕墙 第四节 明框玻璃幕墙