wayne_myles 发表于 2018-12-3 21:50:33

求助诸位大大 简化步骤的LSP

我想简化如下命令

我正常步骤是画圆第一步输入R第二步是指点原点 第三步输入'CAL第四步输入算式表达式
我正常步骤是画直线第一步输入L第二步是指点原点 第三步输入'CAL第四步输入算式表达式

我期待是画圆第一步输入R第二步是指点原点 第三步输入输入算式表达式第四步根据表达式结果画圆   
            画直线 第一步输入L第二步是指点原点 第三步输入输入算式表达式第四步根据表达式结果画圆   （一句话就是不想输入'CAL 呵呵）


谢谢指点

xyp1964 发表于 2018-12-3 23:29:05

(defun c:r ()
(while (and (setq p0 (getpoint "\n圆心点<退出>: "))
              (setq str (getstring "\n半径表达式<退出>: "))
       )
    (command "circle" "non" p0 (CAL str))
)
(princ)
)
(defun c:l ()
(while (and (setq p0 (getpoint "\n起点<退出>: "))
              (setq str (getstring "\n长度表达式<退出>: "))
       )
    (setq p1 (polar p0 0 (CAL str)))
    (command "line" "non" p0 "non" p1 "")
)
(princ)
)

wayne_myles 发表于 2018-12-4 05:52:05

xyp1964 发表于 2018-12-3 23:29


我的2014版本运行好像有点问题 代码运行后输入表达式 无反应 ，请问哪里需要修改下？谢谢

依然低调 发表于 2018-12-4 17:05:43

wayne_myles 发表于 2018-12-4 05:52
我的2014版本运行好像有点问题 代码运行后输入表达式 无反应 ，请问哪里需要修改下？谢谢

先执行一次(command-s "cal" "1.0-1.0")试试

oistre 发表于 2018-12-10 09:58:39

谢谢!分享程序!!!

pengfei2010 发表于 2019-1-14 16:15:16

原来还有cal这个命令，我都不知道

wayne_myles 发表于 2019-1-14 19:52:49

pengfei2010 发表于 2019-1-14 16:15
原来还有cal这个命令，我都不知道

论坛诸位大大的确知识渊博!!!
页: [1]
查看完整版本: 求助诸位大大 简化步骤的LSP