s678z 发表于 2013-12-9 08:26:21

查斜线程序的缺陷改进

本帖最后由 s678z 于 2013-12-9 08:27 编辑

画图时稍不当心会把正交线画得稍微斜一点点，肉眼看不清楚，标注尺寸时会发觉出现小数点，下面的程序可以查斜线，但有部分正交线也被当成斜线打成红色，请高手帮忙再改进，附件是测试用图纸。
(defun c:bias()
   (setq ss_first (ssget "X" '((0 . "line"))))
   
   (setq n 0)
   (setq ss_kill (ssadd))
   (while (< n (sslength ss_first))
      (setq en (ssname ss_first n))
      (setq en_data (entget en))
      (setq pt_st (cdr (assoc 10 en_data)))
      (setq pt_en (cdr (assoc 11 en_data)))
      (setq ang (/ (* 180 (angle pt_st pt_en)) pi))
    (if (and (/= ang 0) (equal ang 0 0.3))
       (ssadd en ss_kill)
      )
    (if (and (/= ang 90) (equal ang 90 0.3))
       (ssadd en ss_kill)
      )
   (if (and (/= ang 180) (equal ang 180 0.3))
       (ssadd en ss_kill)
      )
    (if (and (/= ang 270) (equal ang 270 0.3))
       (ssadd en ss_kill)
      )
   (if (and (/= ang 360) (equal ang 360 0.3))
       (ssadd en ss_kill)
      )
      (setq n (1+ n))
   
   )
   (if ss_kill
    (progn
      (command "_.chprop" ss_kill "" "c" 1 "")
      (princ (strcat "\n------------- 有\t" (itoa (sslength ss_kill)) "条斜线。"))
   )
   (princ "\n没有斜线!")
    )
)

菜卷鱼 发表于 2013-12-9 09:18:09

本帖最后由 菜卷鱼 于 2013-12-10 09:28 编辑

(defun c:bias()
   (setq ss_first (ssget "X" '((0 . "line"))))
   (setq n 0)
   (setq ss_kill (ssadd))
(while (< n (sslength ss_first))
      (setq en (ssname ss_first n))
      (setq en_data (entget en))
      (setq pt_st (cdr (assoc 10 en_data)))
      (setq x1 (car pt_st) y1 (cadr pt_st))
      (setq pt_en (cdr (assoc 11 en_data)))
      (setq x2 (car pt_en) y2 (cadr pt_en))
(if
(or (= "0" (rtos (- y2 y1)) ) (= "0" (rtos (- x2 x1)) ) )
(setq n (1+ n))
(progn (ssadd en ss_kill)(setq n (1+ n))
))
)
   (if (/= 0 (sslength ss_kill))
    (progn
      (setvar "cmdecho" 0)
      (command "_.chprop" ss_kill "" "c" 1 "")
      (setvar "cmdecho" 1)
      (mapcar'princ (list "\n------------- 有\t" (sslength ss_kill) "条斜线。"))
   )
   (alert "\n没有斜线!")
    )
(prin1)
)

菜卷鱼 发表于 2013-12-11 10:57:14

本帖最后由 菜卷鱼 于 2013-12-11 11:00 编辑

这下应该解决了吧

s678z 发表于 2013-12-16 08:10:16

菜卷鱼 发表于 2013-12-11 10:57 static/image/common/back.gif
这下应该解决了吧


改进后查斜线程序检查的dwg图纸见附件，图中部分斜线没显示，但直线已经没有被误为斜线，这已经改进了，另外，查出的斜线能否另外建个图层，以便和正常的线条颜色区别开来，感谢网友的帮忙。

菜卷鱼 发表于 2013-12-16 08:44:40

单独设置图层的话就把 (command "_.chprop" ss_kill "" "c" 3 "")改成(command "_.chprop" ss_kill "" "c" 3 "LA" "斜线的图层" "")，
部分斜线没显示出来就是斜线的角度超过了0.3，你就把(/ pi 600)中的 600改小一点，(/ pi 600)就是0.3°，就是把0.3改大一点

chenming10 发表于 2013-12-16 09:33:36

菜卷鱼 发表于 2013-12-16 08:44 static/image/common/back.gif
单独设置图层的话就把 (command "_.chprop" ss_kill "" "c" 3 "")改成(command "_.chprop" ss_kill ""...

能不能支持多义线呀。。那要怎样修改呢？

菜卷鱼 发表于 2013-12-16 11:24:35

chenming10 发表于 2013-12-16 09:33 static/image/common/back.gif
能不能支持多义线呀。。那要怎样修改呢？

我也是菜鸟，多义线的话要找高手，是我自己的话我会把多义线炸开

s678z 发表于 2013-12-17 10:26:51

菜卷鱼 发表于 2013-12-16 08:44 static/image/common/back.gif
单独设置图层的话就把 (command "_.chprop" ss_kill "" "c" 3 "")改成(command "_.chprop" ss_kill ""...

查斜线程序已好用，这个问题你看看有无办法http://bbs.mjtd.com/thread-108134-1-1.html
页: [1]
查看完整版本: 查斜线程序的缺陷改进