求一个lisp程序--一键框选把（图层是剖面线｛图层名｝）的全部原地转化为块 (..

wayne_myles · 发表于 2017-8-31 09:45

本帖最后由 wayne_myles 于 2017-9-2 09:19 编辑

求个LISP,一键框选把（图层是剖面线｛图层名｝）的全部原地转化为块 (块名可以随机生成的名称)，求高手指教下谢谢

wayne_myles · 发表于 2017-8-31 10:57

多等高手指点

wayne_myles · 发表于 2017-9-1 14:22

...................................

wayne_myles · 发表于 2017-9-2 09:19

谢谢关注!!!!!

wayne_myles · 发表于 2017-9-2 09:55

谢谢fire9527的帖子
http://bbs.mjtd.com/thread-168305-1-1.html
自己修改一下达到自己想要效果

(defun c:KS (/ ss1 p x2)
  (prompt "\n请选择加入块的对象: ")
  (setq ss1 (ssget (list (cons 8 "剖面线层"))))
  (princ "\n选择基点: ")
  (setq       p  (getpoint)
      x2 (rtos (* (getvar "cdate") 1000000) 2 0)
  )
  (command "_block" x2 p ss1 "")
  (command "_insert" x2 p "" "" "")
  (princ)
)

昊翰鲲鹏 · 发表于 2021-11-5 17:47

wayne_myles 发表于 2017-9-2 09:55
谢谢fire9527的帖子
http://bbs.mjtd.com/thread-168305-1-1.html
自己修改一下达到自己想要效果 ...

大佬请问一下块名称自己自己输入吗

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

[机械] 求一个lisp程序--一键框选把（图层是剖面线｛图层名｝）的全部原地转化为块 (..