【菜鸟集】写第一个程序，求完善和指教！
本帖最后由 spp_wall 于 2014-1-10 15:47 编辑(defun c:zb()
(setq qdbg (getreal "\n请输入起点标高"));蓝色为字符串 getreal：表示实数 getint：表示整数 getpoint:返回一个三维点坐标
(setq pd (getreal "\n请输入坡度"))
(setq cd (getreal "\n请输入长度"))
(setq zdbg (- qdbg (* (/ pd 100 ) cd )))
(printzdbg)
(setq pt1 (getpoint "\n指定第一点"))
(command "_text" pt1 "5" "" zdbg "" "" )
(princ);阻止回显
)
1：现在标高 坡度 长度是靠手工输入 如何实现标高和坡度点取文字 长度点取线段:
2：现在输出的结果只是显示在CAD命令行如何以文字的形式 能直接插入CAD内
根据菜花鱼的提醒用了command 实现了第2个问题结果可以直接插入CAD
但是 出来的结果有以下几个问题
1：小数点后面有很多位 2：最后还会出现 命令: ZB 未知命令“ZB”。按 F1 查看帮助。 本帖最后由 llsheng_73 于 2014-1-10 16:00 编辑
(printzdbg)==>(entmake(list'(0 . "text")(cons 1(rtos zdbg))(cons 10(getpoint"文字插入位置")(cons 40 1)))
括号位置写错了，rots也没写完整
(entmake (list '(0 . "text")(cons 1(rtos zdbg 2 2))(cons 10 (getpoint "文字插入位置"))(cons 40 1))) llsheng_73 发表于 2014-1-10 12:51 (print zdbg)==>(entmake(list'(0 ."text")(cons 1(rtos zdbg))(cons(getpoint"文字插入位置")(cons 40 1 ...
没有组码10
edata 发表于 2014-1-10 14:26 static/image/common/back.gif
没有组码10
呵呵，还是你细心些 初学的话用command，自己可以照着(command "_.text") 然后把上面的赋值一个一个填上去 llsheng_73 发表于 2014-1-10 12:51 static/image/common/back.gif
(printzdbg)==>(entmake(list'(0 . "text")(cons 1(rtos zdbg))(cons 10(getpoint"文字插入位置")(cons 4 ...
(printzdbg)
(entmake (list '(0 . "text")(cons 1(rtos zdbg))(cons 10 (getpoint "文字插入位置")(cons 40 1))))
这样改了后说参数太多 出错了！ (entmake (list '(0 . "text")(cons 1(rtos zdbg))(cons 10 (getpoint "文字插入位置"))(cons 40 1)))
llsheng_73 发表于 2014-1-10 12:51 static/image/common/back.gif
(printzdbg)==>(entmake(list'(0 . "text")(cons 1(rtos zdbg))(cons 10(getpoint"文字插入位置")(cons 4 ...
谢谢第二个问题解决了
请问 拾取标高 文字 应该如何写呢！ junkegg 发表于 2014-1-10 16:09 static/image/common/back.gif
(entmake (list '(0 . "text")(cons 1(rtos zdbg))(cons 10 (getpoint "文字插入位置"))(cons 40 1)))
谢谢第二个问题解决了
请问 拾取 标高 文字 应该如何写呢！ 你指的的提取标高 文字的内容吧，最好提供dwg文件。
页:
[1]
2