快速标注角度

AMTONNY

偶待高手帮忙优化此程序,现此程序可用,但是达不到本人所要求的标准,本人要求一次框选两条线即可在两线形成的小于180度的夹角中标注角度,而且不再需要画线的两步动作了,本程序已经能实现点选即可完成标注角度, 还望各位版主,大侠出手解决,本人在此谢过!

yoyoho

;;;快速标注角度
(defun c:da ()

   (command "osnap" "endp,mid,int,cen")
   (SETQ OSD (Getvar "osmode"))
   (setvar "cmdecho" 0)
  (SETQ OLA (GETVAR "CLAYER")) ;保存目前使用的色层

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;; 请高手帮忙优化此处，要求使用(ssget)代替(entsel)操作并且 ;;;;;;;;;;;;
;;;;;;;;;;;; 一次框选两条线即可在两线形成的小于180度的夹角中标注角度 ;;;;;;;;;;;;
;;;;;;;;;;;; 而且不再需要画线的两步动作了,本程序已经能实现点选即可完 ;;;;;;;;;;;;
;;;;;;;;;;;; 成标注角度,                                            ;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;  (setq en (entsel "请点选一条直线:"))      ;;<<<<<<<<
;  (setq enn (entsel "请点选另一条直线:"))   ;;<<<<<<<<

    (if (and (setq SS (ssget '((0 . "LINE"))))
             (= (sslength SS) 2)
        )
        (progn
             (setq en (ssname SS 0) enn (ssname SS 1))
        )
    )
;;;;;;;;;;;;;;;;;;;
(SETVAR "OSMODE" 0)

(setq en_data (entget en))
(setq p1 (cdr (assoc 10 en_data)) ) ;取得起点p1坐标
(setq p2 (cdr (assoc 11 en_data))) ;取得终点p2坐标
  (command "line" p1 p2 "")  ;;<<<<<<<<
  (setq ent1 (entlast))      ;;<<<<<<<<
;;;;;;;;;;;;;;;;;;;
(setq en_dat (entget enn))
(setq p3 (cdr (assoc 10 en_dat))) ;取得起点p3坐标
(setq p4 (cdr (assoc 11 en_dat))) ;取得终点p4坐标
  (command "line" p4 p3 "")    ;;<<<<<<<<
  (setq ent2 (entlast))        ;;<<<<<<<<
  (command "_ERASE" en enn "") ;;<<<<<<<<
   (setq P5 (inters P1 P2 P3 P4 nil));建立第6点
  (setq ang (/ (+ (angle p2 p1) (angle p2 p3)) 2));;取得对像1/2角度值
  (setq p6 (polar p2 ang 10));建立第6点
  (command "dimangular" (list ent1 p5) (list ent2 p5) p6)
;;;  (setvar "osmode" 183)
;;;  (setvar "cmdecho" 1)

  (setvar "osmode" OSD )
  (SETVAR "CLAYER" OLA) ;恢复原色层
  (setvar "cmdecho" 1)

  (princ)
)

AMTONNY

谢谢yoyoho大侠的帮忙,此程序已经达到了本人的要求了,再次谢过

5061220

收藏

英雄无敌

不过我想这个程序还是应该加一个位置放置的输入会更好一点

AMTONNY

已经整理了2楼的程序,加入了位置放置功能了

yxl88168

谢谢楼主的好程序

slzlfs

原来还可以这个样子啊

尘缘一生

本程序虽然实线了框选，但只对直线起作用，不如CAD原程序好。。。

2. ;;--------标注角度------------------------------------------------------
   
3. (defun c:jd (/ o1 o2 o3)
   
4.   (setq O1 (Getvar "dimadec"))
   
5.   (setq O2 (Getvar "cmdecho"))
   
6.   (setq O3 (Getvar "osmode"))
   
7.   (setvar "osmode" 0)
   
8.   (setvar "dimadec" 2)
   
9.   (command "dimangular" pause pause pause "" pause)
   
10.   (command pause)
    
11.   (setvar "dimadec" o1)
    
12.   (setvar "cmdecho" o2)
    
13.   (setvar "osmode" o3)
    
14.   (princ)
    
15. )

;;--------标注角度------------------------------------------------------<br /> (defun c:jd (/ o1 o2 o3)<br />   (setq O1 (Getvar "dimadec"))<br />   (setq O2 (Getvar "cmdecho")) <br />   (setq O3 (Getvar "osmode")) <br />   (setvar "osmode" 0)<br />   (setvar "dimadec" 2)<br />   (command "dimangular" pause pause pause "" pause)<br />   (command pause)<br />   (setvar "dimadec" o1)<br />   (setvar "cmdecho" o2)<br />   (setvar "osmode" o3)<br />   (princ)<br /> )