转眼之间 一路有你

(defun c:tt ()(setq a (entsel)) (setq b (car a)) (setq d (entget b)) (setq c (entget b '("*"))) (setq e (assoc -3 c)) (setq f (cdr e))(setq g (assoc "SOUTH" f))(setq h (cddr g))(setq i...

1 红色 2黄色 3绿色 4青色 5蓝色 6洋红色 7 白色对于mtext，控制文字的对齐格式可以使用以下组码：(71 . 1) 左对齐-上对齐 这个是默认的对齐方式(71 . 4) 左对齐-中央对齐(71 . 7) 左对齐-下对齐(71 . 2) 居中对齐-上对齐(71 . 5) 居中对齐-中央对齐(71 . 8) 居中对齐-下对齐(71 . 3) 右对齐-上对齐(71 . 6......

(defun c:tt () (setq dat_file (getfiled "写文件" "c:\lsptools\numtest1" "num" 1)) (setq ff (open dat_file "w"))(setq ss (ssget))(setq n 0) (repeat (sslength ss)(setq en (ssname ss n)) (setq e...

函数entsel、car、cdr、entget(defun c:tt () (setq en1 (entsel)))返回 对象名称 选点坐标(car en1)返回列表的第一个元素(cadr en1)返回列表的第二个元素(setq en1 (entsel))(defun c:tt () (setq en1(entsel)) (setq ......

(defun c:tt () (setq p1 (getpoint "第一点：")) (setq p2 (getpoint p1 "\n**第二点：")) (setq w (getdist "\n输入宽度:")) (setq h (getdist "\n输入长度:")) (setq ang (angle p1 p2) l (distance p1 p2) ) (...

程序说明该程序使用户能够动态构造由三个提供的点定义的矩形。该程序提供两个命令：3PR和3PRD，分别代表程序的标准和动态版本。在AutoCAD命令行发出任一命令后，首先提示用户指定两个点，这两个点定义所得矩形的两对平行边之一。在对这些提示的有效响应之后，然后提示用户第三点以确定第二对边缘的长度和方向，第二对边缘垂直于由前两个点限定的边缘构造。如果使用动态命令（3PRD），程序将显示......

AutoLisp学习笔记1