(setq aaaa (car(cdr(assoc 10 (entget dcf))))) (setq bbbb (cadr(cdr(assoc 10 (entget dcf))))) (setq cccc(list aaaa (- bbbb 10) 0.0)) (setq dddd (car(cdr(assoc 10 (entget objLin))))) (setq eeee (cadr(cdr(assoc 10 (entget objLin))))) (setq ffff(list aaaa (+ bbbb 10) 0.0)) (setq gggg (list (car orientA) (- (cadr orientA) 300) 0.0)) (command "dimconstraint" "h" "o" cccc ffff gggg "")
正在初始化...dimconstraint 当前设置: 约束形式 = 动态 选择要转换的关联标注或 [线性(LI)/水平(H)/竖直(V)/对齐(A)/角度(AN)/半径(R)/直径(D)/形式(F)] <对齐>:h 指定第一个约束点或 [对象(O)] <对象>: o 选择对象: 未找到对象。 选择对象: 未找到对象。 选择对象: 未找到对象。
|