让对象从屏上消失与再现

自贡黄明儒 · 发表于 2011-3-26 15:28

;;;这是ac_bonus.lsp内的一个子程序。我对理解了的进行了注示；不理解的，等着你来
;;;这里面有许多程序，可以借用和拿来学习，不用动脑筋去思考

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;60为图元可见性,1不可见
;;示例(setq a (ssget))
;;;(ss_visible a 1)选择对象不见,(ss_visible a 0)又可见了
(defun ss_visible ( ss code / na e1 n)
(if ss
   (progn
   (setq n 0)
   (repeat (sslength ss)
   (setq na (ssname ss n)
         e1 (entget na)
   );setq
   (if (not (assoc 60 e1))
         (setq e1 (append e1 (list (cons 60 code))));setq then
         (setq e1 (subst (cons 60 code) (assoc 60 e1) e1));setq else
   );if
   (entmod e1)
   (entupd na)
   (setq n (+ n 1));setq
   );repeat
   );progn
);if
);defun ss_visible

Wu_Enwu · 发表于 2021-3-24 15:35

感谢楼上分享!

luhy2008 · 发表于 2019-7-5 16:25

感谢楼上分享!

自贡黄明儒 · 发表于 2011-3-26 15:30

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Str2lst - string to list
;Takes two string arguments. A delimiter or token and the main string.
;Returns a list of sub-strings from the main string.
;(setq b "人之初" c "之"),(str2lst b c)返回("之");(str2lst c b)返回("人" "初")
(defun str2lst ( a b / n c lst lst2 leng)

(setq lst (strsea a b)
      n 0
);setq
(if lst
(progn
   (setq c (substr b
      1
      (-
(nth 0 lst)
1
      );minus
      );substr
   );setq
   (setq lst2 (append lst2 (list c)));setq
   (repeat (- (length lst) 1)
   (setq leng (-
   (nth (+ n 1) lst)
   (nth n lst)
   (strlen a)
);minus
      c (substr b
(+
   (nth n lst)
   (strlen a)
);plus
leng
);substr
   );setq
   (setq lst2 (append lst2 (list c)));setq
   (setq n (+ 1 n));setq
   );repeat
   (setq c (substr b
      (+
(nth n lst)
(strlen a)
      );plus
      );substr
   );setq
   (setq lst2 (append lst2 (list c)));setq
);progn then
(setq lst2 (append lst2 (list b)));setq else
);if

lst2
);defun str2lst

仲文玉 · 发表于 2011-3-27 23:56

感谢共享，

461045462 · 发表于 2011-4-22 07:09

谢谢楼主的分享
收藏下来看看学习学习
谢谢

yoyoho · 发表于 2011-4-22 11:04

感谢楼主分享学习!

mandala · 发表于 2011-4-22 16:21

好东西，感谢分享。

zxjing · 发表于 2011-4-22 17:37

好程序，学习了

啵浪鼓 · 发表于 2011-4-23 18:56

本帖最后由啵浪鼓于 2011-4-23 18:57 编辑

1楼程序挺好的，隐藏那全开图层也没法打开，不知道的人都不知道图档里还有被隐藏的东东！

不过，输出"erase" "all" 可以删除掉！

zh74 · 发表于 2011-4-24 15:44

感谢，学习下

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

[函数] 让对象从屏上消失与再现

本帖子中包含更多资源

评分