[原创]：中心线程序（源码）

jhwjm369 · 发表于 2006-11-21 08:35:45

1楼的代码(改成如下形式)在CAD2006及清华建筑b666下无法通过aut8.2R进行加载。
出现  no function definition: nil 的提示。而直接输入zxxth命令则可运行。

(load "xyp_lib.vlx")  ;版本 V.20060411
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyp_lib.vlx")
■2·在每个程序内增加(load"xyp_lib.vlx")
■3·在command下，输入(load"xyp_lib.vlx")
■4·在菜单.mnl中增加(load"xyp_lib.vlx")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
★通用函数下载地址：
http://www.xdcad.net/forum/attachme...&postid=1606661
|;
;;;zxxth (中心线)
(defun c:zxxth ()
  (cmdla0)
  (setq dist (UDIST 7 "" "\n中心线线长<或直接量取>" dist nil))
  (setvar "osmode" 0)
  (mkla "公-轴网" 1)
  (while (setq pt1 (xyp-get-zxd))
(xyp-Cross pt1 dist 1)
(redraw)
  )
  (cmdla1)
)
(pxyp "ZXX  (中心线)")

jx2008 · 发表于 2006-11-25 00:23:40

楼上的怎么没定义的函数？是不是与你别的程序的命令重了？

jhwjm369 · 发表于 2006-11-25 08:20:30

我不懂的，只不过是把一楼的复制下来，对照该贴子下面的几楼改成了自己想要的图层而已。不了用一下哪个程序更适合自己，对于同一个程序倒是有好几个。能否帮忙改一下。

xinghecad · 发表于 2009-6-10 10:14:18

谢谢，下载学习

dolphin71 · 发表于 2009-6-24 10:21:25

下来学习一下

pengpeichun · 发表于 2009-7-14 21:59:57

哎，愣是看不懂。。

guogang18 · 发表于 2009-7-15 18:30:04

使用效果很好，谢谢

lichh_2003 · 发表于 2009-7-29 20:52:01

真厉害啊

kevinjyj · 发表于 2009-8-10 23:03:34

谢谢楼主分享!

xiayu9432 · 发表于 2009-8-11 15:06:37

顶是个好东西

zhoufen564555 · 发表于 2016-6-11 23:18:22

：等待你的源码学习。学习

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

[原创]：中心线程序（源码）

好贴