快速关闭尺寸界线

dennylaw163

在明经里看到一个大师的作品，想知道能否实现如下图我点选1这边就自动关1这边，点先2那一边则自动2那边。

• (defun chdim (fs en / oldds cs)
•   (command"undo" "be")
•   (if (= "1" fs)
•     (setq cs "2")
•     (setq cs "1")
•   )
•   (setq oldds (getvar "dimstyle"))
•   (command "dimstyle" "restore" "" en)
•   (setq oldv (getvar (strcat "dimblk" cs)))
•   (if (= "" oldv)
•     (setq oldv (getvar "dimblk"))
•   )
•   (if (= "" oldv)
•     (setq oldv ".")
•   )
•   (setvar "dimsah" 1)
•   (setvar "dimblk" ".")
•   (setvar (strcat "dimblk" fs) ".")
•   (setvar (strcat "dimblk" cs) oldv)
•   (setvar (strcat "dimse" fs) 1)
•   ;;;  (setvar "dimblk" oldv)
•   (command "dimstyle" "a" en "")
•   (command "dimstyle" "r" oldds)
•   (command"undo" "e")
• )
• (defun c:cdt (/ ss fs)
•   (initget "1 2")
•   (setq fs (getkword "\n请输入要改变的箭头[左<1>或右<2>]:"))
•   (setq ss (ssget '((0 . "dimension"))))
•   (if ss
•     (progn
•       (setq n -1)
•       (repeat (sslength ss)
•         (setq en (ssname ss (setq n (1+ n))))
•         (chdim fs en)
•       )
•     )
•   )
•   (princ)
• )
  

LPACMQ

判断出距离拾取点最近点位，然后关闭相应的界限和尺寸线即可。

dennylaw163

LPACMQ 发表于 2021-5-29 20:43
判断出距离拾取点最近点位，然后关闭相应的界限和尺寸线即可。

理论大家都懂

start4444

(defun chdim (fs en / oldds cs)
  
  (if (= "1" fs)
    (setq cs "2")
    (setq cs "1")
  )
  (setq oldds (getvar "dimstyle"))
  (command "dimstyle" "restore" "" en)
  (setq oldv (getvar (strcat "dimblk" cs)))
  (if (= "" oldv)
    (setq oldv (getvar "dimblk"))
  )
  (if (= "" oldv)
    (setq oldv ".")
  )
  (setvar "dimsah" 1)
  (setvar "dimblk" ".")
  (setvar (strcat "dimblk" fs) ".")
  (setvar (strcat "dimblk" cs) oldv)
  (setvar (strcat "dimse" fs) 1)
  ;;;  (setvar "dimblk" oldv)
  (command "dimstyle" "a" en "")
  (command "dimstyle" "r" oldds)
  
)
(defun c:tt5 (/ en fs n ptx ss)
(command"undo" "be")
        (setq ss (ssget '((0 . "dimension"))))
        (setq ptx (getpoint "\n选择隐藏边："))
       
  ;(setq fs (getkword "\n请输入要改变的箭头[左<1>或右<2>]:"))
  
  (if ss
    (progn
      (setq n -1)
      (repeat (sslength ss)
        (setq en (ssname ss (setq n (1+ n))))
                                (if (< (distance ptx (cdr (assoc 13 (entget en)))) (distance ptx (cdr (assoc 14 (entget en))))) (setq fs "1") (setq fs "2"))
        (chdim fs en)
      )
    )
  )
        (command"undo" "e")
  (princ)
)

sunny_8848

箭头不是也要顺带隐藏的吗

dennylaw163

start4444 发表于 2021-5-31 15:13
(defun chdim (fs en / oldds cs)
  
  (if (= "1" fs)

谢谢，有没有可能ptx可以根据ssget的时候的选择点来获得呢？我的三脚猫功夫没整成功

  (setq ss (ssget '((0 . "dimension"))))
  (setq t_ent (car ss))
  (setq t_sel_point (cadr ss))
  (setq tx_ent (vlax-ename->vla-object t_ent))
   (setq        ptx
         (vlax-curve-getclosestpointto
           tx_ent
           (trans t_sel_point 1 0)
         )
  )
  

dennylaw163

sunny_8848 发表于 2021-5-31 16:46
箭头不是也要顺带隐藏的吗

不用隐藏箭头的

start4444

dennylaw163 发表于 2021-5-31 20:12
谢谢，有没有可能ptx可以根据ssget的时候的选择点来获得呢？我的三脚猫功夫没整成功

  (setq s ...

那就是单选了
(defun chdim (fs en / oldds cs)
  
  (if (= "1" fs)
    (setq cs "2")
    (setq cs "1")
  )
  (setq oldds (getvar "dimstyle"))
  (command "dimstyle" "restore" "" en)
  (setq oldv (getvar (strcat "dimblk" cs)))
  (if (= "" oldv)
    (setq oldv (getvar "dimblk"))
  )
  (if (= "" oldv)
    (setq oldv ".")
  )
  (setvar "dimsah" 1)
  (setvar "dimblk" ".")
  (setvar (strcat "dimblk" fs) ".")
  (setvar (strcat "dimblk" cs) oldv)
  (setvar (strcat "dimse" fs) 1)
  ;;;  (setvar "dimblk" oldv)
  (command "dimstyle" "a" en "")
  (command "dimstyle" "r" oldds)
  
)

(defun c:tt5 (/ en fs n ptx ss enl)
(command"undo" "be")         
        (setq en (car (setq enl (entsel "\n选择对象:"))) ptx (cadr enl))
                                (if (< (distance ptx (cdr (assoc 13 (entget en)))) (distance ptx (cdr (assoc 14 (entget en))))) (setq fs "1") (setq fs "2"))
        (chdim fs en)      
        (command"undo" "e")
  (princ)
)

dennylaw163

start4444 发表于 2021-6-1 10:44
那就是单选了
(defun chdim (fs en / oldds cs)
  

太给力了，谢谢！