作中垂线

qfkxc

; 作中垂线
(defun c:ZCX( / )
  (setq en1 (entsel "\n Select Line: "))
  (setq ent1 (car en1))
  (setq p1 (cadr en1))
  
  (command "-array" ent1 "" "p"
   (osnap p1 "mid") 2 90 "")
  (princ)
  )

caoyin

有很多更好的方法的时候，command和osnap不推荐使用

leono

谢谢。。。。。。

qfkxc

多谢版主指点

leono

caoyin 发表于 2011-9-11 19:00
有很多更好的方法的时候，command和osnap不推荐使用

版主能说说吗。是有什么VLISP函数可以用吗

caoyin

;;AutoLISP 就可轻松实现：
;;----------------------------------------------------------------------
(defun C:ZCX (/ ENT P1 P2 MP AN DI)
  (setq ENT (entsel "\n选择直线:")
        ENT (entget (car ENT))
        P1  (cdr (assoc 10 ENT))
        P2  (cdr (assoc 11 ENT))
        MP  (mapcar '(lambda (X Y) (/ (+ X Y) 2.)) P1 P2)
        AN  (+ (angle P1 P2) (/ PI 2.))
        DI  (/ (distance P1 P2) 2.)
  )
  (entmake (list '(0 . "LINE")
                 (cons 10 (polar MP AN DI))
                 (cons 11 (polar MP AN (- DI)))
  ))
)

leono

caoyin 发表于 2011-9-11 20:54
;;AutoLISP 就可轻松实现：
;;----------------------------------------------------------------------
...

谢谢版主，能帮我看看这个吗？
http://bbs.mjtd.com/thread-89299-1-1.html

caoyin

;;AutoLISP 就可轻松实现：
;;----------------------------------------------------------------------
(defun C:ZCX (/ ENT P1 P2 MP AN DI)
  (setq ENT (entsel "\n选择直线:")
        ENT (entget (car ENT))
        P1  (cdr (assoc 10 ENT))
        P2  (cdr (assoc 11 ENT))
        MP  (mapcar '(lambda (X Y) (/ (+ X Y) 2.)) P1 P2)
        AN  (+ (angle P1 P2) (/ PI 2.))
        DI  (/ (distance P1 P2) 2.)
  )
  (entmake (list '(0 . "LINE")
                 (cons 10 (polar MP AN DI))
                 (cons 11 (polar MP AN (- DI)))
  ))
)

自贡黄明儒

caoyin 发表于 2011-9-11 21:04
;;AutoLISP 就可轻松实现：
;;----------------------------------------------------------------------
...

(setq ENT (entsel "\n选择块中曲线:")）时，请问怎么办呢？

caoyin

;;;做任意曲线的垂线
(defun C:TT (/ curve point ang)
  (setq curve (entsel "\n选择任意曲线: "))
  (mapcar 'set '(curve point) curve)
  (setq point (vlax-curve-getClosestPointTo curve point)
        ang   (angle '(0 0)
                     (vlax-curve-getFirstDeriv
                       curve
                       (vlax-curve-getParamAtPoint curve point)
                     )
              )
        ang   (+ ang (/ pi 2))
  )
  (command "_.xline" "_non" point "_non" (polar point ang 10) "")
)