[测绘制图，画围墙时需要用双线，两条线的线型不同。要求是一路画过去，可以自由选择下一步是用直线还是圆弧。用mline的话就无法画圆弧了，我打算象下边这样用平行线来解决，但总觉得不满意：
- O# A* J: C# O9 g; l6 F8 x# G
(DEFUN C:test()
) _8 Q" b5 f! H/ a2 ^6 O- O! B
9 t. u9 V: Y7 H' @: T；指定第一条线的层和线型:
& p$ K) _* |* T& l- W4 G(setvar "clayer" "wall")(setvar "celtype" "wq2012")
, t! T. e1 C4 O% G3 ]7 P
. a. w4 G- |$ I；输入宽度：0 b( F- S7 ~9 W: z
(setq th (getreal "输入墙厚度：（默认为0.5）："))
8 h \4 y8 @. I4 I1 V6 G5 d
- `; w6 x# q# i3 W+ l；先画一条边线：5 j" ]% _, k& @# b0 T* ]) u
(command "pline" )3 I" V4 k Z& [0 N# ?; n' K4 I
, S( s+ u5 q, ~' i
；判断是否还处于pline中：, Y' N9 ?5 B- d3 k0 B( m
(while (= (getvar "CMDACTIVE") 1) (command pause))( C9 N% m* n0 q- N
+ z$ G* m& ]' X
；作平行线，如果前边th没有输入则默认为0.5：
6 c7 Q( |. w' j% c% I- E(setq a (vlax-ename->vla-object (entlast)))
* E/ A5 m2 c+ O: R5 w* X(if (= nil th) (vla-offset a -0.5) (vla-offset a (- th)))
+ j7 c- g4 o0 B: ~
, P8 W6 |6 s# a' C& d, ?( z；选择刚做好的平行线，然后更改线型：$ Q [2 H: c" q7 v1 j7 a9 n
* y9 z) J( L$ w5 p: D(setq b (entlast))* Y- ]& c( L G
(command "chprop" b "" "lt" "continuous" "")
( Y3 W2 }& t3 |' v, \. z+ ]
/ F: j* ^3 p1 C% M" v0 R)
8 X2 q$ R; y3 v, n4 l% Z: R! A; o' V9 P: a
现在问题还有两个：第一是，我希望第一条线，就是用pline做的那条线是打散的，不知道做好了平行线之后，该如何回头去选择这条线；第二个问题是我如何封闭这两条平行线的头和尾呢？是否要调用lastpoint和lastangle这两个参数，但不知道如何去弄。小弟刚开始学lisp，纯属菜鸟，请大家帮帮忙。) Y; @5 ~6 U0 l. s
' D7 ?, Z0 d& K1 h: d[ 本帖最后由 mandala 于 2010-12-12 13:04 编辑 ] |
发表于 2010-12-12 12:57
楼主