[求助]：请教LISP命令

zzczlh0511 · 发表于 2008-12-22 22:27:14

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

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

×

在家园下了个LISP，不懂LISP，请教命令是什么啊，程序有没有问题？感激
;; 桩号标注
(defun c:test717 ()
  (CMDLAsc0)
  (setq lst '(10 20 25.0 30 46.5 51))    ;桩号距离表——由用户自定义
  (if (and (setq s1 (car (entsel "\n选择曲线: ")))
   (xyp-curve-check s1)
   )
(foreach tx lst
   (if (> tx 0)
(progn
   (setq p1 (xyp-get-CurvePointAtDist s1 tx)
p2 (xyp-get-FaxianAtPoint s1 p1 2)
p3 (xyp-get-FaxianAtPoint s1 p1 4)
   )
   (xyp-MkLaCo "桩号标注-直线" 1)
   (xyp-add-line p1 p2)
   (xyp-MkLaCo "桩号标注-距离" 3)
   (xyp-Text 5 p3 (xyp-2str tx))
)
   )
)
  )
  (CMDLA1)
)

CADVL · 发表于 2008-12-22 23:35:26

加载后键入test717即可，不过在加载此文件之前好像应该先加载xyplib.vlx文件。

zzczlh0511 · 发表于 2008-12-29 11:22:09

谢谢楼上，键入test717没效果，我再找找xyplib.vlx看看

luowy · 发表于 2008-12-31 10:01:09

发现自定义命令XYP－开头，无此命令支持将不能运行此命令

kmdz · 发表于 2008-12-31 11:14:47

这有个更好用的，http://www.xdcad.net/forum/showt ... 8261，去看看。

baiyh · 发表于 2008-12-31 11:43:18

xuexiyixia

zzczlh0511 · 发表于 2008-12-31 21:20:44

看看5楼的

ktkg · 发表于 2009-1-3 14:10:57

俺也不太明白

010010001 · 发表于 2009-1-5 11:22:57

为什么要加VLX 呢这个LSP 不对吗

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

[求助] [求助]：请教LISP命令

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

相关帖子