使用该程序，您可以控制尺寸位置的方向。
所以若你们给正值，尺寸应该和Y轴一致，若给负值，尺寸应该和Y轴相反。
试试看，如果您需要有关代码的任何帮助，请告诉我：
- (defun c:holedim (/ bs p1 nd no vl ang dis gap p)
- (if
- (and (setq bs (getpoint "\npick left endpoint : "))
- (setq p1 (getpoint "\npick point of the first hole :" bs))
- (setq nd (getpoint "\npick point of the last hole :" bs))
- (setq no (getint "\nEnter number of holes :"))
- (setq vl (getreal "\nEnter dimspacing value :"))
- )
- (progn
- (setq ang (angle bs nd)
- dis (distance bs nd)
- gap (/ (- dis (distance bs p1)) (1- no))
- )
- (command "_.dimlinear" "_non" bs "_non" p1 (setq p (polar bs (+ ang (* pi 0.5)) vl)))
- (repeat (1- no)
- (command "_.dimlinear" "_non" p1 "_non" (setq p1 (polar p1 ang gap)) "_non" p)
- )
- )
- )
- (princ)
- )
| 
