AutoLISP& Extension for Visual Studio Code

clm840917 · 发表于 2020-3-11 20:38:56

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 clm840917 于 2020-3-11 20:42 编辑

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

clm840917 · 发表于 2020-3-11 20:40:26

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)
)

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) 
)

zhystar · 发表于 2020-3-11 23:18:58

没用过，之前接触过lisplink。问一下楼主，好用么？

chwnin · 发表于 2020-3-13 11:29:12

这个调试要用CAD2021版的，我试过要转接一个什么文件的，应该是2021才有的，下面说明也是with 2021

chwnin · 发表于 2020-3-13 11:30:55

本帖最后由 chwnin 于 2020-3-13 11:35 编辑

1584070460(1).png

中望2020也可以用vs code的，你试试

huangpc27 · 发表于 2020-3-14 09:33:37

中望不好用吧，能连到CAD上运行吗

账号		自动登录	找回密码
密码			立即注册

[求助] AutoLISP& Extension for Visual Studio Code

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。