请教：用lisp编程插入图块，保留CAD对话框界面

北岸小筑 · 发表于 2013-1-6 13:30:00

请教：用lisp编程插入图块，保留CAD对话框界面，主要是选择图块名称，然后自动按指定的点插入

Gu_xl · 发表于 2013-1-6 13:44:41

(vla-SendCommand (vla-get-ActiveDocument (vlax-get-acad-object)) "insert ")

北岸小筑 · 发表于 2013-1-6 14:04:05

(vla-SendCommand (vla-get-ActiveDocument (vlax-get-acad-object)) "insert ")
用不了，能解释下吗？
我主要想插入图中自带的图块，但输入了块名都找不到所以想我看你留对话窗

北岸小筑 · 发表于 2013-1-6 14:04:58

我主要想插入图中自带的图块，但输入了块名都找不到所以想保留对话窗

北岸小筑 · 发表于 2013-1-6 14:07:30

lisp能找图中自带的图块吗，例如图中一个符号叫c1,直接用insert能找到并插入，但lisp调用insert就找不到

snddd2000 · 发表于 2013-1-6 14:12:37

你用lisp调用insert是怎么调的？代码看看呢

北岸小筑 · 发表于 2013-1-6 15:30:53

(setq n (getstring "\n图块名: "))
(Command "insert" n p1 "1" "1" "0")

snddd2000 · 发表于 2013-1-6 15:48:35

(setq n (getstring "\n图块名: "))
(if (tblsearch "BLOCK" n) (command ...))

北岸小筑 · 发表于 2013-1-6 17:31:00

确实不错，现在能用了，谢谢了

香田里浪人 · 发表于 2015-11-4 10:12:51

;;;插入块
(defun c:crt ()
(setvar "cmdecho" 0)
(setq n (getstring "\n图块名: "))
  (while (setq pt (getpoint "\n-->请选取插入点:"))
  (command "insert" n pause 1 1 0)
  (command "_.explode" "L")
  (command "_.chprop" "P" "" "LA" (getvar "CLAYER") ""))
(princ)
)

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