我可能会采取另一种方法，要求L W H RAD并绘制两次对象，原因是你跟踪点，使变暗部分变得容易，你将pt3 pt4变暗，等等。我看到的问题是，你可以按任何顺序绘制形状，如直线和圆弧，或柱脚线，但起点在哪里？
- (setq pi2 (/ pi 2.0)) ; 90 degrees
- (setq pi270 (* 1.5 pi))
- ; pi is 180 degrees
- (setq oldsnap (getvar "osmode")) ; save current snaps
- (setvar "osmode" 0) ; turn off all snaps
- (setq pt1 (getpoint "pick lower left"))
- (setq h (getdist "\nEnter Height"))
- (setq l (getdist "\nEnter width"))
- (setq rad (getdist "\nenter rad "))
- (setq pt2 (polar pt1 pi270 h))
- (setq pt3 (polar pt2 0.0 l))
- (setq pt4 (polar pt3 pi2 h)) ; make a box of 4 pts
- (command "pline" pt1 pt2 pt3 pt4 "arc" "Radius" rad pt1 "") ; a pline plus arc
- (setq off (getdist "\nEnter offset")) ; this can be hardcoded
- (command "offset" off pt1 (polar pt1 pi270 1.0) "")
- (setvar "osmode" 0)
- (command "move" "Last" "" "0,0" "0,300")
- ;ok your turn now rework out the pt1 pt2 pt3 pt4 etc using polar with vertical and horizontal adjust and you can then dim.
- (setq pt1 (polar (polar pt1 ang dist) ang dist)) ; a double polar saves need for temporary pt
| 
置顶卡
