如何给autocad添加自定义符号。

Ffeitian · 发表于 2003-7-25 19:25:00

如何给添加自定义符号。

myfreemind · 发表于 2003-7-25 23:29:00

什么符号?

Ffeitian · 发表于 2003-7-26 15:42:00

如：提前绘制好的三角形，在使用中怎样随时调用。

spring · 发表于 2003-7-26 19:39:00

(defun c:bn (/ cm cc p1 ss)
  (setq cm (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "undo" "group")
  (setq cc (getfiled "Select a Dwg File" "c:/block/" "dwg" 8));;;"c:/block/"為路徑
  (while
(setq p1 (getpoint "\ninsert point"))
   (command "insert" cc p1 "" "" "")
   (setq ss (ssget "l"))
   (if ss
   (command "explode" ss)
   )
  )
  (command "undo" "end")
  (setvar "cmdecho" cm)
  (princ)
)
;;;_____________________________________
;;;如果你不想用對話框的話
(defun c:bn1 (/ cm p1 ss)
  (setq cm (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "undo" "group")
  (while
(setq p1 (getpoint "\ninsert point"))
   (command "-insert" "a3" p1 "" "" "");;;a3是你事先畫好的圖
   (setq ss (ssget "l"))
   (if ss
   (command "explode" ss)
   )
  )
  (command "undo" "end")
  (setvar "cmdecho" cm)
)

myfreemind · 发表于 2003-7-26 20:02:00

四楼的方法很好!

如何给autocad添加自定义符号。

发表回复

精选推荐