程序开头的(XDRX_BEGIN)，屏蔽了先选择后执行

pxt2015 · 发表于 2017-5-16 14:17:15

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

程序开头加了(XDRX_BEGIN)，屏蔽了lisp程序的先选择后执行，如何处理？

newer · 发表于 2017-5-16 15:07:59

你说的先选择后执行，指的是什么？

marting · 发表于 2017-5-16 19:03:47

如果xdrx_begin初始化不适合你的需要，你可以在它下面加入系统变量设置的代码就解决了。

pxt2015 · 发表于 2017-5-17 16:25:46

本帖最后由 pxt2015 于 2017-5-17 18:17 编辑

(defun c:R1 () (duiqi-wz "L"))
(defun c:R2 () (duiqi-wz "M"))
(defun c:R3 () (duiqi-wz "R"))
(defun duiqi-wz (duiqi)
(defun DXF (n da_i) (cdr (assoc n da_i)))
;;-----------------------
;; 返回垂足
(defun ea:ptoln (p p1 p2 / LL_PER A_PER
B_PER C_PER X_PER Y_PER Z_PER X1_PER
Y1_PER Z1_PER K_PER
)
(setq LL_PER (mapcar '- p2 p1) ;直线的方向向量
A_PER (car LL_PER)
B_PER (cadr LL_PER)
C_PER (last LL_PER)
X_PER (car p)
Y_PER (cadr p)
Z_PER (last p)
X1_PER (car p1)
Y1_PER (cadr p1)
Z1_PER (last p1)
)
(if (equal LL_PER '(0. 0. 0.))
LL_PER
(progn (setq K_PER (/ (+ (* A_PER (- X_PER X1_PER))
(* B_PER (- Y_PER Y1_PER))
(* C_PER (- Z_PER Z1_PER))
)
(+ (* A_PER A_PER)
(* B_PER B_PER)
(* C_PER C_PER)
)
) ;直线参数
)
(list (+ X1_PER (* A_PER K_PER))
(+ Y1_PER (* B_PER K_PER))
(+ Z1_PER (* C_PER K_PER))
)
)
)
)
;; 返回垂足
;;-----------------------
(princ "\nR1左对齐 R2中对齐 R3右对齐")
(princ (strcat "\n请选取需【"
(cond ((= duiqi "L") "R1左对齐")
((= duiqi "M") "R2中对齐")
((= duiqi "R") "R3右对齐")
)
"】文本<退出>: "
)
)
(setq os (getvar "osmode"))
;(xdrx_begin) ;_ 1/2
(IF (setq ss (ssget ":L" '((0 . "TEXT,ATTDEF"))))
(progn
(xdrx_begin) ;_ 2/2
(command "undo" "be")
(setvar "osmode" 0)
(if (setq pt (getpoint "\n对齐线基准线<退出>："))
(progn
(setq pt (trans pt 1 0))
(setq i 0)
(repeat (sslength ss)
(setq en (ssname ss i)
da (entget en)
ang (dxf 50 da)
p10 (dxf 10 da)
zg (dxf 40 da)
lay (dxf 8 da)
)
(setq p10 p10
p10-x (polar p10 ang 10)
)
(setq pn (Ea:Ptoln pt p10 p10-x))
(cond ((= duiqi "L")
(setq p11 '(0 0)
j72 0
j73 0
)
)
((= duiqi "M")
(setq p11 pn
j72 1
j73 0
)
)
((= duiqi "R")
(setq p11 pn
j72 2
j73 0
)
)
)
(setq da (subst (cons 10 pn) (assoc 10 da) da)
da (subst (cons 11 p11) (assoc 11 da) da)
da (subst (cons 72 j72) (assoc 72 da) da)
da (subst (cons 73 j73) (assoc 73 da) da)
)
(entmod da)
(setq i (1+ i))
) ;_repeat
)
) ;_ if pt
(setvar "osmode" os)
(command "undo" "e")
) ;_progn
))

(defun c:R1 () (duiqi-wz "L")) 
(defun c:R2 () (duiqi-wz "M")) 
(defun c:R3 () (duiqi-wz "R")) 
(defun duiqi-wz        (duiqi) 
  (defun DXF (n da_i) (cdr (assoc n da_i))) 
  ;;----------------------- 
  ;; 返回垂足 
  (defun ea:ptoln (p           p1           p2           /           LL_PER  A_PER 
                   B_PER   C_PER   X_PER   Y_PER   Z_PER   X1_PER 
                   Y1_PER  Z1_PER  K_PER 
                  ) 
    (setq LL_PER (mapcar '- p2 p1)        ;直线的方向向量 
          A_PER         (car LL_PER) 
          B_PER         (cadr LL_PER) 
          C_PER         (last LL_PER) 
          X_PER         (car p) 
          Y_PER         (cadr p) 
          Z_PER         (last p) 
          X1_PER (car p1) 
          Y1_PER (cadr p1) 
          Z1_PER (last p1) 
    ) 
    (if        (equal LL_PER '(0. 0. 0.)) 
      LL_PER 
      (progn (setq K_PER (/ (+ (* A_PER (- X_PER X1_PER)) 
                               (* B_PER (- Y_PER Y1_PER)) 
                               (* C_PER (- Z_PER Z1_PER)) 
                            ) 
                            (+ (* A_PER A_PER) 
                               (* B_PER B_PER) 
                               (* C_PER C_PER) 
                            ) 
                         )                ;直线参数 
             ) 
             (list (+ X1_PER (* A_PER K_PER)) 
                   (+ Y1_PER (* B_PER K_PER)) 
                   (+ Z1_PER (* C_PER K_PER)) 
             ) 
      ) 
    ) 
  ) 
  ;; 返回垂足 
  ;;----------------------- 
  (princ "\nR1左对齐 R2中对齐 R3右对齐") 
  (princ (strcat "\n请选取需【" 
                 (cond ((= duiqi "L") "R1左对齐") 
                       ((= duiqi "M") "R2中对齐") 
                       ((= duiqi "R") "R3右对齐") 
                 ) 
                 "】文本<退出>: " 
         ) 
  ) 
  (setq os (getvar "osmode")) 
  ;(xdrx_begin) ;_ 1/2 
  (IF (setq ss (ssget ":L" '((0 . "TEXT,ATTDEF")))) 
    (progn 
      (xdrx_begin) ;_ 2/2 
      (command "undo" "be") 
      (setvar "osmode" 0) 
      (if (setq pt (getpoint "\n对齐线基准线<退出>：")) 
        (progn 
          (setq pt (trans pt 1 0)) 
          (setq i 0) 
          (repeat (sslength ss) 
            (setq en  (ssname ss i) 
                  da  (entget en) 
                  ang (dxf 50 da) 
                  p10 (dxf 10 da) 
                  zg  (dxf 40 da) 
                  lay (dxf 8 da) 
            ) 
 
            (setq p10        p10 
                  p10-x        (polar p10 ang 10) 
            ) 
            (setq pn (Ea:Ptoln pt p10 p10-x)) 
            (cond ((= duiqi "L") 
                   (setq p11 '(0 0) 
                         j72 0 
                         j73 0 
                   ) 
                  ) 
                  ((= duiqi "M") 
                   (setq p11 pn 
                         j72 1 
                         j73 0 
                   ) 
                  ) 
                  ((= duiqi "R") 
                   (setq p11 pn 
                         j72 2 
                         j73 0 
                   ) 
                  ) 
            ) 
            (setq da (subst (cons 10 pn) (assoc 10 da) da) 
                  da (subst (cons 11 p11) (assoc 11 da) da) 
                  da (subst (cons 72 j72) (assoc 72 da) da) 
                  da (subst (cons 73 j73) (assoc 73 da) da) 
            ) 
            (entmod da) 
            (setq i (1+ i)) 
          ) ;_repeat          
        ) 
      ) ;_ if pt 
      (setvar "osmode" os) 
      (command "undo" "e") 
    ) ;_progn 
  ))

将代码(xdrx_begin)1/2，放到2/2，问题已经解决[ 选中对象后，再运行：r1]

newer · 发表于 2017-5-17 16:56:35

pxt2015 发表于 2017-5-17 16:25

是的，一般xdrx_begin 都是放在if progn 后，程序开始真正处理的时候。

dyjwyqz5221 · 发表于 2018-3-31 22:07:19

原来如此，这个问题困扰了我好久，类似的情况，一直找不到原因

alnhny · 发表于 2018-11-14 16:34:01

pxt2015 发表于 2017-5-17 16:25
将代码(xdrx_begin)1/2，放到2/2，问题已经解决[ 选中对象后，再运行：r1]

感谢，解决了困扰我的问题。

账号		自动登录	找回密码
密码			立即注册

[求助] 程序开头的(XDRX_BEGIN)，屏蔽了先选择后执行

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。