AutoCAD® AutoLISP® Extension for Visual Studio Code

clm840917

有人用这写程序吗，弄了半天连不上cad。懂得人给做个简单教程吧。LISP开发者指南

clm840917

1. DEFUN C:cc ()
   
2.   (prompt "\n-------圆形处理--(引线为0度）")
   
3.   (setvar "cmdecho" 0) ;关闭命令执行提示
   
4.   (SETQ SS (ssget '((0 . "CIRCLE"))))
   
5.   (if (= ss nil)
   
6.     (progn (prompt "\n---*error*选取物件---")
   
7.            (setq ss (ssget '((0 . "CIRCLE"))))
   
8.     )
   
9.   )
   
10.   (setq N 0)
    
11.   (repeat (sslength ss)  ;有次数重复(;取的选择集中对象数量)
    
12.     ;(setq n 0 ss '()                         ;取得一个空表
    
13.     (setq kk (entget (ssname ss n)) ;取出对象数据表
    
14.           k1 (cdr (assoc 10 kk)) ;取得圆心坐标
    
15.           k2 (cdr (assoc 40 kk)) ;取得圆半径
    
16.           k3 (polar k1 0 k2) ;polar返回距 UCS 某圆心坐标 某角度 某半径长度 的 UCS3D 点
    
17.     )
    
18.     (entmake (list '(0 . "LINE") (cons 10 k1) (cons 11 k3)))
    
19.     ；；画直线
    
20.     ;(COMMAND "line" (cons 10 k1) (cons 11 k3) "")；；；都可以画直线
    
21.     (setq N (1+ N))
    
22.   )
    
23.   (command "ucs" "v")
    
24.   (command "undo" "end")
    
25.   (prompt "\n---圆形处理--- > ")
    
26.   (princ (sslength SS))
    
27.   (princ " <个整圆对象 ，引线添加成功")
    
28.   (PRINC)
    
29. )

DEFUN C:cc () <br />   (prompt "\n-------圆形处理--(引线为0度）")<br />   (setvar "cmdecho" 0) ;关闭命令执行提示<br />   (SETQ SS (ssget '((0 . "CIRCLE"))))<br />   (if (= ss nil) <br />     (progn (prompt "\n---*error*选取物件---") <br />            (setq ss (ssget '((0 . "CIRCLE"))))<br />     )<br />   )<br />   (setq N 0)<br />   (repeat (sslength ss)  ;有次数重复(;取的选择集中对象数量)<br />     ;(setq n 0 ss '()                         ;取得一个空表<br />     (setq kk (entget (ssname ss n)) ;取出对象数据表<br />           k1 (cdr (assoc 10 kk)) ;取得圆心坐标<br />           k2 (cdr (assoc 40 kk)) ;取得圆半径<br />           k3 (polar k1 0 k2) ;polar返回距 UCS 某圆心坐标 某角度 某半径长度 的 UCS3D 点<br />     )<br />     (entmake (list '(0 . "LINE") (cons 10 k1) (cons 11 k3)))<br />     ；；画直线<br />     ;(COMMAND "line" (cons 10 k1) (cons 11 k3) "")；；；都可以画直线<br />     (setq N (1+ N))<br />   )<br />   (command "ucs" "v")<br />   (command "undo" "end")<br />   (prompt "\n---圆形处理--- > ")<br />   (princ (sslength SS))<br />   (princ " <个整圆对象 ，引线添加成功")<br />   (PRINC)<br /> )

东升铮

这是Visual Studio Code吧？这个得在2021版本上才能得到调试支持！预计三月底四月初2021版本会发布！！