CAD一键动态块2

XTdwynij

怪不得。只能在当前文件中做一个动态块。第二个就说块名被定义了。人工智能写的很有问题。

f4800

;;; 加载完成提示信息
(princ "\n快速创建块 (可自定义基点)")
(princ "\n快捷命令 TT3\n")
(princ)

(vl-load-com)
  (DEFUN C:TT3 (/ BLKNAME PT SS)
    (setq BLKNAME "创建动态块")
    (PROMPT "\n选择要生成块的图元: ")
    (setq SS (SSGET))
    (setq PT (GETPOINT "\n指定块基点: "))
    (command "_.-block")
    (command BLKNAME)
    (command PT)
    (command SS)
    (command "")
    (command "_.-insert")
    (command BLKNAME)
    (command PT)
    (command 1)
    (command 1)
    (command 0)
    (command "_.erase")
    (command SS)
    (command "")
    (command "._bedit")
    (command BLKNAME)
    (command "._BPARAMETER")
    (command "Visibility")
    (command '(0 0 0))
    (command 1)
    (command "._BVSTATE")
    (command "_New")
    (command "可见性状态1_只显线")
    (command "")
    (command "._BVSTATE")
    (command "_Set")
    (command "可见性状态0")
    (command "._BVSHOW")
    (command "_All")
    (command "")
    (command "C")
    (setq SS (SSGET "X" '((0 . "*LINE"))))
    (command "._BVSTATE")
    (command "_Set")
    (command "可见性状态1_只显线")
    (command ".BVHIDE")
    (command "_All")
    (command "")
    (command "C")
    (command "._BVSHOW")
    (command SS)
    (command "")
    (command "C")
    (command "._BSAVE")
    (command "._BCLOSE")
    (PRINC "\n动态块创建成功！")
    (PRINC "\n未选择任何对象！")
    (SETVAR 'CMDECHO 1)
    (PRINC)
  )

ai自动生成的。。。 还是很强大的

zhwc125

感谢分享 感谢分享