请问 （rp pt1 ( rp 是什么意思

cash1331

(command "line" (rp pt1 (+ 2 (/ o_dia 2.0)) 0)
                          (rp pt1 (- (+ 2 (/ o_dia 2.0))) 0) "")

Andyhon

自定义的函数

猜 ==> polar 的等效函数

cash1331

可能是吧
我看到一个程序里好多地方用到RP
(command "line" (rp scr_ip (/ dia 2.0) (- scr_sbl (+ scr_len dia)))  
          (strcat "@" (rtos dia 2 2) "<180") "")

(command "line" (rp scr_ip (* (+ 1 dia) 0.5) (- dia))
                 (rp scr_bp (* (+ 1 dia) 0.5) (- scr_len1)) "")

(command "pline" (rp scr_ip (- (/ dia 2.0) scr_bio) (- (+ scr_len dia)))
          "@4<270" "")

(command "pline" (rp scr_ip (- (/ dia 2.0) scr_bio) (- 0 dia scr_len 4))
          (strcat "@" scr_pra "<210")
          (rp scr_ip (- scr_bio (/ dia 2.0)) (- (+ dia scr_len 4))) "c")

(command "pline" (rp scr_bp (+ 1 (/ o_dia 2.0)) 0)
                  (rp scr_ip (+ 1 (/ o_dia 2.0)) (- dia))
                  (rp scr_ip (- (+ 1 (/ o_dia 2.0))) (- dia))
                  (rp scr_bp (- (+ 1 (/ o_dia 2.0))) 0) "")

太难理解了。。我跳过它了。。。

chg

这个程序我觉得结构不好，一般情况下都是先计算出点的坐标，然后用ENTMAKE命令来完成绘制，用command命令速度会很慢。

cabinsummer

rp是“人品”拼音首字母缩写

cash1331

[em0]
我在学习别人的画螺丝程序。主要是研究结构，还有DCL搭配。
command  写出来是很多，慢的话，应该不至于吧，计算机忽的一下就算好了。。
画1 、2个圈圈的，我也喜欢用entmake  ,并且做成块。

经过我一个个数字的去算，知道怎么回事了。。

(command "line" (rp pt1 (+ 2 (/ o_dia 2.0)) 0)
                       (rp pt1 (- (+ 2 (/ o_dia 2.0))) 0) "")
(command "line" (rp pt1 0 (+ 2 (/ o_dia 2.0)))
                       (rp pt1 0 (- (+ 2 (/ o_dia 2.0)))) "")
就是相当于以pt1为原点，  （rp pt1 8.5 0)
                                        ( rp pt1 -8.5 0)
                                       ( rp pt1 0  8.5)
                                       ( rp pt1 0 -8.5 )

                得到二点(8.5,0)    (-8.5,0)    得出一条穿过原点的线
       pt1为圆心，得到二条横竖的圆中心线

bhf0114

玩这程序还要看人品

zyhandw

大侠cabinsummer太有才了！！