把此贴删除

himmel

生成的垂直线段要过哪一点，总要说一下吧？

BDYCAD

路过，顺贴上旧代码： 供参考：

2. ;功能说明; 生成直线的中垂线
3. ;By  BDYCAD
4. ;Date 2004.04.14
5. (DEFUN C:Cc(/ NP1 NP2 NSL-S SL SL-E SL-S)
6.   (setq sl (car (entsel)) sl-s(vlax-curve-getstartpoint sl)sl-e(vlax-curve-getendpoint sl)
7. nsl-s (polar sl-s (angle sl-s sl-e) (* 0.5 (distance sl-s sl-e)))
8. np1 (polar nsl-s (+ (* 0.5 pi)(angle sl-s sl-e)) 50.0) np2 (polar nsl-s (+ (* 0.5 pi)(angle sl-e sl-s)) 50.0))
9.   (vla-addline (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
10.     (vlax-3d-point np1) (vlax-3d-point np2))
11.   (princ))

;功能说明; 生成直线的中垂线 ;By  BDYCAD ;Date 2004.04.14 (DEFUN C:Cc(/ NP1 NP2 NSL-S SL SL-E SL-S)   (setq sl (car (entsel)) sl-s(vlax-curve-getstartpoint sl)sl-e(vlax-curve-getendpoint sl) nsl-s (polar sl-s (angle sl-s sl-e) (* 0.5 (distance sl-s sl-e))) np1 (polar nsl-s (+ (* 0.5 pi)(angle sl-s sl-e)) 50.0) np2 (polar nsl-s (+ (* 0.5 pi)(angle sl-e sl-s)) 50.0))   (vla-addline (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))     (vlax-3d-point np1) (vlax-3d-point np2))   (princ))

highflybird

路过，贴一些

2. (vl-load-com)
3. (defun c:test(/ DIS ENT LLL NOR OBJ PNT SL2 SLP)
4.   (setq pnt (getpoint"\n选取点:"))
5.   (setq lll (nentselp pnt))
6.   (setq ent (car lll))
7.   (setq pnt (cadr lll))
8.   (setq pnt (trans pnt 1 0))
9.   (setq obj (VLAX-ENAME->VLA-OBJECT ent))
10.   (setq slp (vlax-curve-getFirstDeriv obj (vlax-curve-getParamAtPoint obj pnt)))
11.   (setq sl2 (vlax-curve-getsecondDeriv obj (vlax-curve-getParamAtPoint obj pnt)))
12.   (princ slp)
13.   (princ sl2)
14.   (setq nor (list (- (cadr slp)) (car slp) (caddr slp)))
15.   (setq dis (distance nor '(0 0 0)))
16.   (setq dis (/ 900 dis))
17.   (setq nor (mapcar '* nor (list dis dis dis)))
18.   (make-line (mapcar '- pnt nor) (mapcar '+ pnt nor))
19.   (princ)
20. )
21. (defun make-line(p q)
22.   (entmake
23.     (list
24.       '(0 . "LINE")
25.       (cons 10 p)
26.       (cons 11 q)
27.     )
28.   )
29. )

(vl-load-com) (defun c:test(/ DIS ENT LLL NOR OBJ PNT SL2 SLP)   (setq pnt (getpoint"\n选取点:"))   (setq lll (nentselp pnt))   (setq ent (car lll))   (setq pnt (cadr lll))   (setq pnt (trans pnt 1 0))   (setq obj (VLAX-ENAME->VLA-OBJECT ent))   (setq slp (vlax-curve-getFirstDeriv obj (vlax-curve-getParamAtPoint obj pnt)))   (setq sl2 (vlax-curve-getsecondDeriv obj (vlax-curve-getParamAtPoint obj pnt)))   (princ slp)   (princ sl2)   (setq nor (list (- (cadr slp)) (car slp) (caddr slp)))   (setq dis (distance nor '(0 0 0)))   (setq dis (/ 900 dis))   (setq nor (mapcar '* nor (list dis dis dis)))   (make-line (mapcar '- pnt nor) (mapcar '+ pnt nor))   (princ) ) (defun make-line(p q)   (entmake     (list       '(0 . "LINE")       (cons 10 p)       (cons 11 q)     )   ) )

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

wufeimoller

小弟新新人类，各位多多关照

yoyoho

感谢各位高手!

收藏学习了!

ZZXXQQ

这是单边的，点偏哪边画哪边。

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0