如何选择块内和Bylayer的各种非连续线型

Free-Lancer · 发表于 2013-7-4 12:39:47

yangist 发表于 2013-7-4 12:21
eachy 噢那应该怎么写呢
我想把ss0 再按线型分成4个list 分别操作

直接遍历ss0选择集

(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getnentdata 0))
(cond
((= (xdrx_getentdxf 6) "CENTER")
(setq l1 (cons e l1))
)
((= (xdrx_getentdxf 6) "DASHDOT")
(setq l2 (cons e l2))
)
....
(t)
)
)

yangist · 发表于 2013-7-4 14:12:35

本帖最后由 yangist 于 2013-7-4 14:16 编辑

不知道楼下的程序对不对,还请大大们帮忙看看

yangist · 发表于 2013-7-4 14:15:16

eachy 发表于 2013-7-3 15:19
就是，贴上来可以得到更多的指点，进步更快

(defun auto_lay_lts ()
  (setq ss0 (ssget '((0 . "ARC,CIRCLE,ELLIPSE,LINE,*POLYLINE"))))
  (setq ss1 (ssadd));;;建立选择集
  (setq ss2 (ssadd))
  (setq ss3 (ssadd))
  (setq ss4 (ssadd))
  (setq k 0 n (sslength ss0))
  (while (< k n)
      (cond ((eq xx "Center2,Centerx2")
                  (command "_.chprop" ss1 "" "la" "03Center" "c" "bylayer" "lt" "bylayer" ""))
                  ((eq xx "Dash2,Dashx2")
                  (command "_.chprop" ss2 "" "la" "04Dashed" "c" "bylayer" "lt" "bylayer" ""))
               ((eq xx "Phantom2,Phantomx2")
                  (command "_.chprop" ss3 "" "la" "08Phantom" "c" "bylayer" "lt" "bylayer" ""))
               ((eq xx "Divide2,Dividex2")
                  (command "_.chprop" ss4 "" "la" "09Divide" "c" "bylayer" "lt" "bylayer" ""))
         );;;end cond
(setq k (1+ k))
);;;end while
);;;end sub

newer · 发表于 2013-7-4 14:37:19

怎么用了那么多SS，用一个就足够了，程序是分支的，互相不冲突的。

yangist · 发表于 2013-7-4 15:02:49

newer 发表于 2013-7-4 14:37
怎么用了那么多SS，用一个就足够了，程序是分支的，互相不冲突的。

能帮我看下上面的程序吗朋友

newer · 发表于 2013-7-4 15:28:20

yangist 发表于 2013-7-4 15:02
能帮我看下上面的程序吗朋友

(eq xx "Center2,Centerx2")

你这个XX变量怎么程序里面没看到，是什么？

yangist · 发表于 2013-7-4 15:51:23

newer 发表于 2013-7-4 15:28
你这个XX变量怎么程序里面没看到，是什么？

改过了新代码如下还是有问题
(defun auto_lay_lts ()
(setq ss (ssget  '((0 . "ARC,CIRCLE,ELLIPSE,LINE,*POLYLINE"))))
(setq Center_list(ssadd)
      Dashed_list(ssadd)
      Phantom_List(ssadd)
      Divide_List(ssadd))
  (setq k 0 n (SSLENGTH ss))
(while (< k n)
(setq en (ssname ss k))
(setq ass6 (cdr (assoc 6 (entget en))))
(if(or (= ass6 "Center") (= ass6 "Center2") (= ass6 "Centerx2"))
   (progn
   (setq Center_list (ssadd en Center_list))
   ))
(if(or (= ass6 "Dash") (= ass6 "Dashed") (= ass6 "Dashed2") (= ass6 "Dashedx2"))
   (progn
   (setq Dashed_list (ssadd en Dashed_list))
   ))
(if(or (= ass6 "Phantom") (= ass6 "Phantom2") (= ass6 "Phantomx2"))
   (progn
   (setq Phantom_List (ssadd en Phantom_List))
   ))
(if(or (= ass6 "Divide") (= ass6 "Divide2") (= ass6 "Dividex2"))
   (progn
   (setq Divide_List (ssadd en Divide_List))
   ))
(setq k (1+ k))
);end while
(command "change" Center_list    "" "la" "03Center"    "c" "bylayer" "lt" "bylayer" "")
(command "change" Dashed_list    "" "la" "04Dashed" "c" "bylayer" "lt" "bylayer" "")
(command "change" Phantom_List  "" "la" "08Phantom" "c" "bylayer" "lt" "bylayer" "")
(command "change" Divide_List    "" "la" "09Divide"    "c" "bylayer" "lt" "bylayer" "")
);;;end sub

eachy · 发表于 2013-7-4 16:05:45

yangist 发表于 2013-7-4 15:51
改过了新代码如下还是有问题
(defun auto_lay_lts ()
(setq ss (ssget '((0 . "ARC,CIRCLE,ELLIPSE, ...

给你个用 XDAPI 写的参考

(defun auto_lay_lst (ss / e elty lyr)
(xdrx_setenttodb ss 0)
(while (setq e (xdrx_getentdata 0))
(setq elty (xdrx_getdxf 6))
(cond
((wcmatch elty "CENTER*")
(setq lyr "03Center")
)
((wcmatch elty "DASH*")
(setq lyr "04Dashed")
)
((wcmatch elty "PHANTOM*")
(setq lyr "08Phantom")
)
((wcmatch elty "DIVIDE*")
(setq lyr "09Divide")
)
(t (setq elty nil))
)
(if elty
(xdrx_entity_setproperty
e "layer" lyr "color" "bylayer" "ltype" "bylayer")
)
)
)

yangist · 发表于 2013-7-4 16:35:41

eachy 发表于 2013-7-4 16:05
给你个用 XDAPI 写的参考

(xdrx_setenttodb ss 0)
;;;看不懂哎有源码吗

Free-Lancer · 发表于 2013-7-4 17:09:35

yangist 发表于 2013-7-4 16:35
(xdrx_setenttodb ss 0)
;;;看不懂哎有源码吗

这个是 XDAPI 函数，可以使Lisp编程更方便、更有效率，如果你非要用 aLisp，可以对照 api 手册看看函数功能，自己用 Lisp 翻译。
这个程序已经给你提供了思路

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

[求助] 如何选择块内和Bylayer的各种非连续线型

点评

点评

点评

点评

点评

点评