AutoCAD® AutoLISP® Extension for Visual Studio Code
本帖最后由 clm840917 于 2020-3-11 20:35 编辑有人用这写程序吗，弄了半天连不上cad。懂得人给做个简单教程吧。LISP开发者指南 DEFUN C:cc ()
(prompt "\n-------圆形处理--(引线为0度）")
(setvar "cmdecho" 0) ;关闭命令执行提示
(SETQ SS (ssget '((0 . "CIRCLE"))))
(if (= ss nil)
(progn (prompt "\n---*error*选取物件---")
(setq ss (ssget '((0 . "CIRCLE"))))
)
)
(setq N 0)
(repeat (sslength ss);有次数重复(;取的选择集中对象数量)
;(setq n 0 ss '() ;取得一个空表
(setq kk (entget (ssname ss n)) ;取出对象数据表
k1 (cdr (assoc 10 kk)) ;取得圆心坐标
k2 (cdr (assoc 40 kk)) ;取得圆半径
k3 (polar k1 0 k2) ;polar返回距 UCS 某圆心坐标 某角度 某半径长度 的 UCS3D 点
)
(entmake (list '(0 . "LINE") (cons 10 k1) (cons 11 k3)))
；；画直线
;(COMMAND "line" (cons 10 k1) (cons 11 k3) "")；；；都可以画直线
(setq N (1+ N))
)
(command "ucs" "v")
(command "undo" "end")
(prompt "\n---圆形处理--- > ")
(princ (sslength SS))
(princ " <个整圆对象 ，引线添加成功")
(PRINC)
) 这是Visual Studio Code吧？这个得在2021版本上才能得到调试支持！预计三月底四月初2021版本会发布！！
页:
[1]