[求助]：这个LISP错在哪里？

xbx7920 · 发表于 2003-11-1 23:10:21

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:bg (/ pt x y y1 ss ssn ssdata dist pt1)
(setvar "attmode" 1)  (setvar "attdia" 0)
(setvar "attreq" 1)
  (setq pt (getpoint)  x (car pt) y (cadr pt))
  (command "insert" "l:/lmark-3.dwg" "" "" "" "%%p0.000")
  (setq ss (ssget))  (setq i 0)
  (repeat (sslength ss)
   (setq ssn (ssname ss i))
   (setq ssdata (entget ssn))
   (setq y1 (caddr (assoc 10 ssdata)))
   (setq pt1 (list x y1))
   (setq dist (- y1 y))
  (command "insert" "l:/lmark-3.dwg" "" "" "" dist)
  (setq i (1+ i))) (princ)  )
我想先设定零标高点,再一次选择很多水平的线，然后会自动插入
标高属性块，不知道为什么不行。

eachy · 发表于 2003-11-1 23:16:45

(command "insert" "l:/lmark-3.dwg" "" "" "" dist)

中的 dist 不是字串

xbx7920 · 发表于 2003-11-2 21:27:29

高见，高见，真是一语惊醒梦中人！首先得把DIST转成字符，是吗？

aeo · 发表于 2003-11-4 21:32:34

最初由 xbx7920 发布
[B]高见，高见，真是一语惊醒梦中人！首先得把DIST转成字符，是吗？ [/B]

不要转的.
应该是没插入点.
r2002里面"insert"应该是"-insert"

xbx7920 · 发表于 2003-11-4 22:41:06

谢谢二位斑竹，我用的是R14，可能有外挂的原因，插入图块不需要对话框的命令就是INSERT，首先还得把DIST转成字符，我已顺利完成此LISP。再次表示感谢！

zhynt · 发表于 2003-11-5 12:53:54

最初由 aeo 发布
[B]
不要转的.
应该是没插入点.
r2002里面"insert"应该是"-insert" [/B]

其实在lsp里insert和－insert是一样的，只有在命令行才不一样。

xbx7920 · 发表于 2003-11-7 14:07:10

这个LISP只适用于WCS里的图。

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

[求助] [求助]：这个LISP错在哪里？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块