[求助]：取点方向的问题

NREAD

(setq pt1 (getpoint "\n第一点:"))
(setq pt2 (getpoint "\n第二点:"))
(setq pt3 (getpoint "\n第三点:"))
现在要求取第三点时，只能在前两点连线的±90度方向，怎么办?

clx512501

angle 角度 线长就可以了

狂刀

ｓｅｔ　“ｕｃｓ”

NREAD

楼上，我试了下，有问题呢，请你看看，行不？
(defun c:pt3 ()
  (setvar "orthomode" 0)
  (setq pt1 (getpoint "\npt1:")
        pt2 (getpoint pt1 "\npt2:")
        )
  (command "line" pt1 pt2 "")
  (setq en (ssget "L")
        )
  (command ".ucs" "ob" en "")
  (setvar "orthomode" 1)
  (setq pt3 (getpoint pt2 "\npt3:")
        )
  (command ".ucs" "w" )
  (command "line" pt2 pt3 "")
  
  )
pt2 pt3 的连线不是想要的。

狂刀

trans

NREAD

最初由 狂刀 发布
[B]trans [/B]

这次搞不定了，唉。。

eachy

2. 
   
3. (defun c:pt3 (/ pt1 pt2 pt3)
   
4.   (setvar "orthomode" 0)
   
5.   (setq        pt1 (getpoint "\npt1:")
   
6.         pt2 (getpoint pt1 "\npt2:")
   
7.   )
   
8.   (command "line" pt1 pt2 "")
   
9.   (command ".ucs" "ob" (entlast))
   
10.   (setvar "orthomode" 1)
    
11.   (setq        pt3 (getpoint (trans pt2 0 1) "\npt3:")
    
12.         pt3 (trans pt3 1 0)
    
13.   )
    
14.   (command ".ucs" "w")
    
15.   (command "line" pt2 pt3 "")
    
16.   (princ)
    
17. )

<br /> (defun c:pt3 (/ pt1 pt2 pt3)<br />   (setvar "orthomode" 0)<br />   (setq        pt1 (getpoint "\npt1:")<br />         pt2 (getpoint pt1 "\npt2:")<br />   )<br />   (command "line" pt1 pt2 "")<br />   (command ".ucs" "ob" (entlast))<br />   (setvar "orthomode" 1)<br />   (setq        pt3 (getpoint (trans pt2 0 1) "\npt3:")<br />         pt3 (trans pt3 1 0)<br />   )<br />   (command ".ucs" "w")<br />   (command "line" pt2 pt3 "")<br />   (princ)<br /> )

zxq0220

这样也行。
[php]
(defun c:pt3 (/ pt1 pt2 pt3)
  (setvar "orthomode" 0)
  (setq        pt1 (getpoint "\npt1:")
        pt2 (getpoint pt1 "\npt2:")
  )
  (command "line" pt1 pt2 "")
  (SETVAR "SNAPANG" (ANGLE PT1 PT2))
  (setvar "orthomode" 1)
  (setq        pt3 (getpoint PT2 "\npt3:"))
  (SETVAR "SNAPANG" 0)
  (command "line" pt2 pt3 "")
  (princ)
)
[/php]

baobin_yu

我没看明白，第三点从理论上说全都垂直两点连线，关键垂直点在哪，

yshf

;请试用以下程序
(defun c:pt3 ()
  (setq cm (getvar "cmdecho") os (getvar "osmode"))
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\npt1:")
        pt2 (getpoint pt1 "\npt2:")
        ang (+ (angle pt1 pt2) (* 0.5 pi))
  )
  (setvar "osmode" 0)
  (command "line" pt1 pt2 ""
          "Xline" pt2 (polar pt2  ang 1) ""
  )
  (setq ent (entlast))
  (setvar "osmode" 512)
  (setq pt3 (getpoint pt2 "\npt3:"))
  (setvar "osmode" 0)
  (entdel ent)
  (command "line" pt2 pt3 "")
  (setvar "cmdecho" cm)(setvar "osmode" os)(princ)
)

;或者请试用以下程序
(defun c:pt31 ()
   (setq cm (getvar "cmdecho") os (getvar "osmode"))
    (if (null zhxchx)(load "k:zhxchx.VLX"));如存入其它地方，请更改相应的路径名
   (zhxchx)
   (setvar "cmdecho" cm)(setvar "osmode" os)(princ)
)

NREAD

谢谢大家的指点，方法不同，受益非浅。

jx2008

谢谢楼上的各位，我也想知道怎么判别方向的问题。