已知一条直线和这条直线上一点，求画经过这个点并与这条直线垂直的线

aliu22

已知一条直线和这条直线上一点，求画经过这个点并与这条直线垂直的线段(长度已知，线一端为该点)，请问用程序如何实现？谢谢

超然A

这样的线段有两条。  分布在这条直线的两边。下面的程式是我随手写的，没有经过测试。您用用看。  如有问题可回帖。

(defun c:test0407()
  (setq os(getvar "osmode"))
  (setvar "osmode" 1)
  (setq ent(car(entsel"\n选择直线：");已知直线
      pt(getpoint"\n选择点：");直线上的点
      dist(getdistance"\n输入线段长：")
      info(entget ent))      
  (setvar "osmode" 0)
  (setq an(angle pt (list (cadr(assoc 10 info))(caddr(assoc 10 info))));这句？？？
     (setq pt2(polar pt (+ an (/ pi 2)) dist))
   （setq pt3(ploar pt (- an (/ pi 2)) dist))  ;pt和pt2(pt3)所连的线为已知直线的垂线
  (command "pline" pt pt2 "")
  (command "pline" pt pt3 "")
  )

ljpnb

我也贴一个

[code]

;;;过直线上指定点作与已知直线的垂线
;;;by ljpnb
(defun c:p-l ()
  (setq errtmp *error*)
  (setq *error* err)
  (setq os (getvar "osmode"))
  (setq ent (car (entsel "\n 选择一条直线: ")))
  (setq point (getpoint "\n选择与已经直线垂直的起点: "))
  (setq obj (vlax-Ename->Vla-Object ent))
  (setq ang (vla-get-Angle obj))
  (if (> ang pi)
    (setq ang (- ang pi))
  )
  (setvar "osmode" 0)
  (setvar "snapang" ang)
  (setvar "ORTHOMODE" 1)
  (command "line" point pause "")
  (setvar "snapang" 0)
  (setvar "osmode" os)
  (setq *error* errtmp)   
  (princ)
)

(defun err (msg)
  (setvar "snapang" 0)
  (setvar "osmode" os)
  (setq *error* errtmp)   
)

[code]

;;;过直线上指定点作与已知直线的垂线
;;;by ljpnb
(defun c:p-l ()
  (setq errtmp *error*)
  (setq *error* err)
  (setq os (getvar "osmode"))
  (setq ent (car (entsel "\\n 选择一条直线: ")))
  (setq point (getpoint "\\n选择与已经直线垂直的起点: "))
  (setq obj (vlax-Ename->Vla-Object ent))
  (setq ang (vla-get-Angle obj))
  (if (> ang pi)
    (setq ang (- ang pi))
  )
  (setvar "osmode" 0)
  (setvar "snapang" ang)
  (setvar "ORTHOMODE" 1)
  (command "line" point pause "")
  (setvar "snapang" 0)
  (setvar "osmode" os)
  (setq *error* errtmp)   
  (princ)
)

(defun err (msg)
  (setvar "snapang" 0)
  (setvar "osmode" os)
  (setq *error* errtmp)   
)

ZZXXQQ

露水2又成黑客了！

yxh1202

测试通过，谢谢。

xdurv

也测试过，通过