[求助]下面程序选择时不能选到矩形，请版主帮忙改改

jiajun_16888

  ((> 2 len 0) (setq leg 2))
    ((> 5 len 2) (setq leg 6))
    ((> 30 len 5) (setq leg 20))
    ((> 50 len 30) (setq leg 40))
    ((> 100 len 50) (setq leg 75))
    ((> len 100) (setq leg 100))

下面程序选择时不能选到矩形，请版主帮忙改改

我想把上面的线形比例功能添加到下面程序中  谢谢

(defun c:cs (/  oce lin n nam tab pt1 pt2 x1 x2 y1 y2 len sca otyp
       osca col typ col)  ;auto change linescale(dashed and center)
 
  (setvar "cmdecho" 0)
    (if (not (setq lin (ssget "_i" '(
       (-4 . "<AND")
       (-4 . "<OR")
       (6 . "DASHED")
       (6 . "CENTER")
       (6 . "HID")
       (6 . "HIDDEN")
       (-4 . "OR>")
       (-4 . "<OR")
       (0 . "LINE")
       (0 . "CIRCLE")
       (0 . "ARC")
       (-4 . "OR>")
       (-4 . "AND>")
      ))))
    (progn
      (princ "\nPlease Select dashed or center: ")
      (setq lin (ssget '(
       (-4 . "<AND")
       (-4 . "<OR")
       (6 . "DASHED")
       (6 . "CENTER")
       (6 . "HID")
       (6 . "HIDDEN")
       (-4 . "OR>")
       (-4 . "<OR")
       (0 . "LINE")
       (0 . "CIRCLE")
       (0 . "ARC")
       (-4 . "OR>")
       (-4 . "AND>")
      )))
    );end progn
  );end if
  (setq oce (getvar "cmdecho")
 lts (getvar "ltscale")
         n 0
 );end setq
  (if lin
  (repeat (sslength lin)
    (setq nam (ssname lin n)
   tab (entget nam)
   typ (cdr (assoc 6 tab))
   otyp (cdr (assoc 0 tab))
    )

    (if (= otyp "CIRCLE")
 (setq rad (cdr (assoc 40 tab))
       len (* 2 (* 3.14 rad))
  );END setq
           ;如是圓實體取周長為"len"
      (if (= otyp "ARC")
   (setq rad (cdr (assoc 40 tab))
         len (* 3.14 rad)
   );end setq
     ;如是圓弧取其圓周長一半 
 (progn
   (setq pt1 (assoc 10 tab)
  pt2 (assoc 11 tab)
  x1  (cadr pt1)
  y1  (caddr pt1)
  x2  (cadr pt2)
  y2  (caddr pt2)
   )
   (setq len
   (sqrt (+ (* (- x1 x2) (- x1 x2)) (* (- y1 y2) (- y1 y2)))
   );end sqrt
   );end setq
 );end progn  ;如是直線由x,y坐標求長度
      );end if
    );end if
  (cond
    ((= typ "DASHED")
     (setq sca (/ len 3 lts)
    col "bylayer"
     )
    )
    ((= typ "CENTER")
     (setq sca (/ len 5 lts)
    col "magenta"
     )
    )
    ((= typ "HID")
     (setq sca (/ len 5 lts)
    col "bylayer"
     )
    )
    ((= typ "HIDDEN")
     (setq sca (/ len 14 lts)
    col "bylayer"
     )
    )
  );end cond
    (command "change" nam "" "p" "s" sca "c" col "")
    (setq n (+ n 1))
  );end repeat
    (alert "\nNo Selection!")
    );end if

  (setvar "cmdecho" oce)
  (princ)
)

jiajun_16888

下面是你以前给我写过的一个程序

(defun ltchange (type1 scale color / oce lts lin n nam len leg sca) ;自動變換成適當比例的中心線
 (setq oce (getvar "cmdecho")
       lts (getvar "ltscale"))
 (setvar "cmdecho" 0)
 (setq n 0)
 (princ (strcat "\\nSelect object change to " type1 ":"))
 (if (setq lin (ssget '((0 . "ARC,CIRCLE,*LINE,ELLIPSE")))) (progn
  (repeat (sslength lin)
   (setq nam (ssname lin n))
   (command "lengthen" nam "")
   (setq LEN (getvar "perimeter"))
   (cond
    ((> 2 len 0) (setq leg 2))
    ((> 5 len 2) (setq leg 6))
    ((> 30 len 5) (setq leg 20))
    ((> 50 len 30) (setq leg 40))
    ((> 100 len 50) (setq leg 75))
    ((> len 100) (setq leg 100))
   );end cond
   (setq sca (/ leg scale lts 2))
   (command "-linetype" "l" type1 "acad.lin" "" "")
   (command "change" nam "" "p" "c" color "lt" type1 "s" SCA "") ;_ end of command
   (setq n (1+ n))
  );end repeat
 ));end if
 (setvar "cmdecho" oce)
 (princ)
);_ end of defun

ZZXXQQ

不知道这样行不：（另：我不是本版版主）

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

jiajun_16888

谢谢 我在你的基础上改了一下 好了 

(setq sca (/ leg scale lts 2))  我想问一下这句后面的2代表什么意思

ZZXXQQ

就是sca等于leg除以scale除以lts除以2