求助一个根据一个角度进行对其标注的问题

tianyuan · 发表于 2012-2-15 16:50

本帖最后由 tianyuan 于 2012-2-19 00:37 编辑

命令行：(command "_.dimaligned" e1 e2 (polar e1 (+ dir (angle e1 e2) pi (/ pi 2.0))  6))) 备注：e1 和e2是进行标注的两个点，6是文字与被标注尺寸线偏移的距离，我想在标注的时候，对e1和e2的角度附加一个角度条件，当90度<e1、e2角度<180 度的时候，标注尺寸线的角度值改变为e1和e2角度+360度来进行尺寸线标注，当270<e1/e2角度<360度的时候标注尺寸线的角度值改变为e1和e2角度+180度来进行尺寸线标注，不知这个判断函数在(command "_.dimaligned" e1 e2 (polar e1 (+ dir (angle e1 e2) pi (/ pi 2.0))  6))) 中该怎样改写？望高手指点！在此谢过！

程序是这样的：
(setq dir (getstring "\n选择方向[(A)顺时针外部/(B)顺时针内部](逆时针则相反)<A>:"))
  (setq gap (getreal "6"))
  (if (= (strcase dir) "B")
(setq dir 0)
(setq dir pi)
  )
  (setq ss (ssget '((0 . "LWPOLYLINE"))))
  (setq i 0)
  (setvar "cmdecho" 0)
  (if ss
(progn
   (repeat (sslength ss)
(setq ent (ssname ss i))
(setq ents (entget ent))
(setq pts (mapcar 'cdr (vl-remove-if-not '(lambda (e) (= (car e) 10)) ents)))
(mapcar '(lambda(e1 e2) (command "_.dimaligned" e1 e2 (polar e1 (+ dir (angle e1 e2) (/ pi 2.0)) gap)))
pts (append (cdr pts) (list (car pts))))
(setq i (1+ i))
   )
);progn
  );if
  (princ)
)

tianyuan · 发表于 2012-2-16 15:37

希望能有高人指点一下吧！

tianyuan · 发表于 2012-2-16 22:33

这是需要改变的效果图

tianyuan · 发表于 2012-2-16 22:39

这是转换后效果图片

tianyuan · 发表于 2012-2-16 22:40

转换后的效果图片

tianyuan · 发表于 2012-2-16 22:46

发送一个比较清晰的图片

tianyuan · 发表于 2012-2-17 14:21

还望高人指点！

ZZXXQQ · 发表于 2012-2-17 22:57

试下看

(defun c:tt ()
(setq dir (getstring "\n选择方向[(A)顺时针外部/(B)顺时针内部](逆时针则相反)<A>:"))
(setq gap (getreal "6"))
(if (= (strcase dir) "B")
(setq dir 0)
(setq dir pi)
)
(setq ss (ssget '((0 . "LWPOLYLINE"))))
(setq i 0)
(setvar "cmdecho" 0)
(if ss (progn
(repeat (sslength ss)
(setq ent (ssname ss i))
(setq ents (entget ent))
(setq pts (mapcar 'cdr (vl-remove-if-not '(lambda (e) (= (car e) 10)) ents)))
(mapcar
'(lambda(e1 e2)
(if (> 120 (/ (* (angle e1 e2) 180) pi) 300)
(command "_.dimaligned" e1 e2 (polar e1 (+ dir (angle e1 e2) (/ pi 2.0)) gap))
(command "_.dimaligned" e2 e1 (polar e1 (+ dir (angle e1 e2) (/ pi 2.0)) gap))
)
)
pts (append (cdr pts) (list (car pts))))
(setq i (1+ i))
)
));if
(princ)
)

tianyuan · 发表于 2012-2-17 23:26

本帖最后由 tianyuan 于 2012-2-18 00:07 编辑

斑主，发现一个问题，就是当线的角度在270~360度和90~180度之间是（也就是270<x<360度、90<x<180度）时，标注的方向并没有改变过来。先向斑主说声谢谢！

tianyuan · 发表于 2012-2-17 23:42

本帖最后由 tianyuan 于 2012-2-18 00:02 编辑

不行啊，我试了下，还是和以前自动标注的方向都一样，无论线的方向为90度<x<180度和270度<x<360度，标注的方向都没发生一点变化，我想使其（线的方向为90度<x<180度和270度<x<360度时）标注边长的方向向左

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

求助一个根据一个角度进行对其标注的问题

点评

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源