CAD二次开发LISP电子资料下载_小懒人CAD工具箱_CAD插件_CASS插件_LISP代

zhoushao · 发表于 2024-7-1 10:18

感谢分享学习了

durugang · 发表于 2024-7-2 17:13

谢谢分享

lbz985624 · 发表于 2024-8-16 17:01

(defun c:tt()
  (vl-load-com)
  (prompt "\n 选择对象<退出>")
  (if (and
      (setq ss (ssget ))
      (setq pt1 (getpoint "\n 指定起点<退出>"))
      )
(while (setq pt2 (getpoint pt1 "\n 指定插入点<退出>"))
   (setq ss1 (ssadd))
   (repeat (setq k (sslength ss))
      (setq ent (ssname ss (setq k (1- k))))
      (command "COPY" ent "" pt1 pt2)
      (setq ent1 (entlast))
      (ssadd ent1 ss1 )
      (if (= (cdr (assoc 0 (entget ent))) "TEXT")
      (progn
         (setq str (atoi (cdr (assoc 1 (entget ent)))))
         (setq ojb (vlax-ename->vla-object ent1))
         (vla-put-TextString ojb (rtos (setq str (1+ str)) 2 0))
         )
      )
   )
   (setq ss ss1)
   (setq pt1 pt2)
)
  )
  )

sanchezhuiyun · 发表于 2024-8-16 17:59

学习一下需要

shangdongxu · 发表于 2024-8-16 20:25

感谢分享

好兄弟 · 发表于 2024-8-17 22:01

好东西，学习了。

qingtignyl · 发表于 2024-8-18 12:52

学习学习

高朋举 · 发表于 2024-8-19 16:10

11111111111111

coffeeprince · 发表于 2024-8-24 13:08

3443220333 · 发表于 2024-8-25 09:49

感谢楼主

[资料] CAD二次开发LISP电子资料下载_小懒人CAD工具箱_CAD插件_CASS插件_LISP代