opqtanxunch 发表于 2016-10-13 21:14:07

已知点偏移

(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 发表于 2016-10-13 21:14:08

(defun C:qs (/ pt pt1 pt2 pt3 pt4 pt5)
(setq os (getvar 'osmode));备份捕捉
(setq cmd (getvar 'cmdecho));备份回显
(mapcar 'setvar (list 'osmode 'cmdecho) '(0 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 "")

(mapcar 'setvar (list 'osmode 'cmdecho) (list os cmd));恢复捕捉，打开回显
(princ)

)

Andyhon 发表于 2016-10-13 21:59:25

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

hhh454 发表于 2016-10-13 22:39:30

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

opqtanxunch 发表于 2016-10-17 08:41:11

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


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

ch34 发表于 2022-8-16 21:32:43

;两点矩形
(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 发表于 2022-8-16 21:35:30

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

ch34 发表于 2022-8-16 21:39:23

不好意思，发错位置了！
页: [1]
查看完整版本: 已知点偏移