depgfdepgf 发表于 2023-4-7 15:17:12

各位大佬，这个动态尺寸，现在左键是连续画线，如何改成左键画一次就结束？谢谢

本帖最后由 depgfdepgf 于 2023-4-7 17:05 编辑

(defun c:g15( / cood d1 d2 data1 data3 data4 en1 en3 en4 gr loop pt1 ptb)
(setvar "cmdecho" 0)
(setq d1 0 pt1 (getpoint "\n 动态显示线段的长度,请确定原点："))
(entmake (list '(0 . "line")(cons 62 2)(cons 10 pt1) (cons 11 (polar pt1 0 100) ) ) )
(setq en1 (entlast)   data1 (entget en1))
(entmake (list '(0 . "TEXT") (cons 1 (strcat "d1=" (rtos d1 2 3))) (cons 10 pt1) (cons 40 100 ) (cons 41 0.85 )(cons 62 3)))
(setq en4 (entlast)   data4 (entget en4))
(setqloop T)
(while loop
    (setq gr (grread T 8))
    (setq cood (car gr)ptb (cadr gr))
    (cond
       ((= cood 3) ;;; 鼠标左键
          (progn      
               (setq pt1 ptb)
               (entmake (list '(0 . "line")(cons 62 2)(cons 10 pt1) (cons 11 (polar pt1 0 100) ) ) )
               (setq en1 (entlast)   data1 (entget en1)d1 (+ d1 d2) )
                     (entmake (list '(0 . "TEXT") (cons 1 (strcat " " (rtos d1 2 3))) (cons 10 pt1) (cons 40 100 )(cons 41 0.85 ) (cons 62 3)))
               (setq en4 (entlast)   data4 (entget en4))
               ;(setq loop nil)
       ))
       ((= cood 11) (setq loop nil)(entdel en1)(entdel en4))
       ((= cood 25) (setq loop nil)(entdel en1)(entdel en4))
       ((equal gr '(2 32)) (setq loop nil)(entdel en1)(entdel en4))
      
       ( (= cood 5)
          (progn            
               (setq pt2 (cdr (assoc 10 data1))data1 (subst (cons 11 ptb) (assoc 11 data1) data1))               
               (entmod data1)         
               (setq d2 (distance pt1 ptb)ag1 (+ (angle pt2 ptb) 0))
               (cond
               ((< (* pi 0.5) (angle pt2 ptb) pi)(setq ag2 (+ (angle pt2 ptb) pi)))
               ((< (* pi 1) (angle pt2 ptb) (* pi 1.5))(setq ag2 (- (angle pt2 ptb) pi)))
               (t (setq ag2 (angle pt2 ptb) ))      
               )
               (setq pt3 (polar pt2 ag1 (/ d2 2.0))pt3 (polar pt3 (+ ag2 (* pi 0.5)) 30)      )
               (setq data4 (subst (cons 10pt3 ) (assoc 10 data4) data4) )               
               (setq data4 (subst (cons 50ag2 ) (assoc 50 data4) data4) )               
               (setq data4 (subst (cons 1(strcat " " (rtos d2 2 3))) (assoc 1 data4) data4))
               (entmod data4)      ;当前段长度         
      
         ))
    );cond   
   
);while
(princ "\n    over 。")
(princ)
)

sandyvs 发表于 2023-4-7 15:55:42

我这右键是退出啊，你是说左键吧？

liuhe 发表于 2023-4-7 15:56:04

现在就是鼠标右键结束啊

depgfdepgf 发表于 2023-4-7 17:07:20

是左键，不小心发错了，如何修改成，左键点一次就和右键一样的功能，不要连续画线

sandyvs 发表于 2023-4-7 18:12:29

depgfdepgf 发表于 2023-4-7 17:07
是左键，不小心发错了，如何修改成，左键点一次就和右键一样的功能，不要连续画线

((= cood 3) ;;; 鼠标左键
          (progn      
               (setq pt1 ptb)
               (entmake (list '(0 . "line")(cons 62 2)(cons 10 pt1) (cons 11 (polar pt1 0 100) ) ) )
               (setq en1 (entlast)   data1 (entget en1)d1 (+ d1 d2) )
                     (entmake (list '(0 . "TEXT") (cons 1 (strcat " " (rtos d1 2 3))) (cons 10 pt1) (cons 40 100 )(cons 41 0.85 ) (cons 62 3)))
               (setq en4 (entlast)   data4 (entget en4))
               (setq loop nil)(entdel en1)(entdel en4)
       ))

lxdz443 发表于 2023-4-8 07:11:37

这个程序，怎么加正交控制？

sandyvs 发表于 2023-4-8 07:40:16

lxdz443 发表于 2023-4-8 07:11
这个程序，怎么加正交控制？

看看zml84大佬的函数，支持捕捉 正交
https://mp.weixin.qq.com/s/Y4CEa_r-xEMob8zm9XlD5g

gaolei_gaolei 发表于 2023-5-20 18:06:21

怎么修改字体大小

hzg912 发表于 2023-12-9 15:52:58

同问这个程序，怎么加正交控制？
页: [1]
查看完整版本: 各位大佬，这个动态尺寸，现在左键是连续画线，如何改成左键画一次就结束？谢谢