【菜鸟集】写第一个程序，求完善和指教！

spp_wall

(defun c:zb()
        (setq qdbg (getreal "\n请输入起点标高"));蓝色为字符串 getreal：表示实数 getint：表示整数 getpoint:返回一个三维点坐标
       
        (setq pd (getreal "\n请输入坡度"))
     (setq cd (getreal "\n请输入长度"))
         (setq zdbg (- qdbg (* (/ pd 100 ) cd )))

        (print  zdbg)
        (setq pt1 (getpoint "\n指定第一点"))
       
        (command "_text" pt1 "5" "" zdbg "" "" )
       
        (princ);阻止回显
)       
       



1：现在标高 坡度 长度是靠手工输入   如何实现标高和坡度点取文字 长度点取线段:
2：现在输出的结果只是显示在CAD命令行  如何以文字的形式 能直接插入CAD内

根据菜花鱼的提醒  用了command 实现了第2个问题  结果可以直接插入CAD

但是 出来的结果有以下几个问题

1：小数点后面有很多位 2：最后还会出现 命令: ZB 未知命令“ZB”。按 F1 查看帮助。

llsheng_73

(print  zdbg)==>(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)))

edata

llsheng_73 发表于 2014-1-10 12:51 (print zdbg)==>(entmake(list'(0 ."text")(cons 1(rtos zdbg))(cons(getpoint"文字插入位置")(cons 40 1 ...

没有组码10

llsheng_73

edata 发表于 2014-1-10 14:26
没有组码10

呵呵，还是你细心些

菜卷鱼

初学的话用command，自己可以照着(command "_.text") 然后把上面的赋值一个一个填上去

spp_wall

llsheng_73 发表于 2014-1-10 12:51
(print  zdbg)==>(entmake(list'(0 . "text")(cons 1(rtos zdbg))(cons 10(getpoint"文字插入位置")(cons 4 ...

(print  zdbg)
        (entmake (list '(0 . "text")(cons 1(rtos zdbg))(cons 10 (getpoint "文字插入位置")(cons 40 1))))

这样改了后说参数太多 出错了！

junkegg

(entmake (list '(0 . "text")(cons 1(rtos zdbg))(cons 10 (getpoint "文字插入位置"))(cons 40 1)))

spp_wall

llsheng_73 发表于 2014-1-10 12:51
(print  zdbg)==>(entmake(list'(0 . "text")(cons 1(rtos zdbg))(cons 10(getpoint"文字插入位置")(cons 4 ...

谢谢  第二个问题解决了

请问 拾取标高 文字 应该如何写呢！

spp_wall

junkegg 发表于 2014-1-10 16:09
(entmake (list '(0 . "text")(cons 1(rtos zdbg))(cons 10 (getpoint "文字插入位置"))(cons 40 1)))

谢谢  第二个问题解决了

请问 拾取 标高 文字 应该如何写呢！

edata

你指的的提取标高 文字的内容吧，最好提供dwg文件。