已知点偏移

opqtanxunch

(defun C:qs (/ pt pt1 pt2 pt3 pt4 pt5)
(setvar "cmdecho" 0)

(setvar "blipmode" 0)
(setq pt1 (getpoint "第一点:"))

(setq pt2 (getpoint "第二点:"))

(setq pt (getpoint "第三点:"))
(setq ptangle (angle pt1 pt2)
       ptn (polar pt (+ (* 0.5 pi) ptangle) 0.01)
       jptx (inters pt ptn pt1 pt2 nil)
       dist (distance pt jptx)
  )
(setq pt4 (polar pt1 (+ (* 0.5 pi) ptangle) dist))
(setq pt5 (polar pt2 (+ (* 0.5 pi) ptangle) dist))
(command "pline" pt5 pt4 "")
)
求教各位大神，我这pt4 pt5两点如果于附近点离得近会吸附到附近节点上，这是哪里出错了。

hhh454

2. (defun C:qs (/ pt pt1 pt2 pt3 pt4 pt5)
   
3.   (setq os (getvar 'osmode));备份捕捉
   
4.   (setq cmd (getvar 'cmdecho));备份回显
   
5.   (mapcar 'setvar (list 'osmode 'cmdecho) '(0 0));设置捕捉为零,关闭回显
   
6.   (setvar "blipmode" 0);关闭点标记
   
7. 
   
8. 
   
9.   (setq pt1 (getpoint "第一点:"))
   
10.   (setq pt2 (getpoint "第二点:"))
    
11.   (setq pt (getpoint "第三点:"))
    
12.   
    
13.   (setq ptangle (angle pt1 pt2)
    
14.        ptn (polar pt (+ (* 0.5 pi) ptangle) 0.01)
    
15.        jptx (inters pt ptn pt1 pt2 nil)
    
16.        dist (distance pt jptx)
    
17.   )
    
18. (setq pt4 (polar pt1 (+ (* 0.5 pi) ptangle) dist))
    
19. (setq pt5 (polar pt2 (+ (* 0.5 pi) ptangle) dist))
    
20. (command "pline" pt5 pt4 "")
    
21.   
    
22. (mapcar 'setvar (list 'osmode 'cmdecho) (list os cmd));恢复捕捉，打开回显
    
23. (princ)
    
24.   
    
25. )

(defun C:qs (/ pt pt1 pt2 pt3 pt4 pt5)<br />   (setq os (getvar 'osmode));备份捕捉<br />   (setq cmd (getvar 'cmdecho));备份回显<br />   (mapcar 'setvar (list 'osmode 'cmdecho) '(0 0));设置捕捉为零,关闭回显<br />   (setvar "blipmode" 0);关闭点标记<br /> <br /> <br />   (setq pt1 (getpoint "第一点:"))<br />   (setq pt2 (getpoint "第二点:"))<br />   (setq pt (getpoint "第三点:"))<br />   <br />   (setq ptangle (angle pt1 pt2)<br />        ptn (polar pt (+ (* 0.5 pi) ptangle) 0.01)<br />        jptx (inters pt ptn pt1 pt2 nil)<br />        dist (distance pt jptx)<br />   )<br /> (setq pt4 (polar pt1 (+ (* 0.5 pi) ptangle) dist))<br /> (setq pt5 (polar pt2 (+ (* 0.5 pi) ptangle) dist))<br /> (command "pline" pt5 pt4 "")<br />   <br /> (mapcar 'setvar (list 'osmode 'cmdecho) (list os cmd));恢复捕捉，打开回显<br /> (princ)<br />   <br /> )

Andyhon

...吸附到附近节点上...
是以得先行解除锁点模式

hhh454

你的代码不知道是什么功能，在写代码的时候，一般情况下，捕捉肯定是关闭的，

opqtanxunch

hhh454 发表于 2016-10-13 22:37

是这样的，我怎么把明经币给你。还是手机上操作不了

ch34

;两点矩形
(defun c:RCC (/ EN)

  (setq p1 (getpoint "第一点:"));鼠标得到第1点

  (setq p2 (getpoint "第二点:"));鼠标得到第2点
       
       
        ;(setq p11 (polar p1 (/ pi 2) 20)）上20，
        ;(setq p11 (polar p1 (/ pi -2) 20)）下20，
        ;(setq p11 (polar p1 (/ pi 1) 20)）左20，
        ;(setq p11 (polar p1 0 20)）右20，
        ;(setq p11 (polar   (polar p1 (/ pi -2) 20)   (/ pi 1) 20)   ) ;下20&左20       
        ;(setq p11 (polar   (polar p1 (/ pi -2) 20)   0 20)          ) ;下20&右20
       
        (setq p11 (polar (polar p1 (/ pi -2) 5)   0 20)   );偏移点位1
        (setq p22 (polar (polar p2 (/ pi 2) 5)   0 29)    );偏移点位2
       
        (command "rectangle"  "non" P11  "non" P22 ) ;偏移点对角画矩形
        ;不能写成(command "rectangle" P11 P3 )，这样时灵时不灵


       
       
)

ch34

谢谢各位！论坛逛了很久基本够用了。

ch34

不好意思，发错位置了！