【e派】工具箱函数再揭秘及应用实例

xyp1964 · 发表于 2024-4-29 18:51:29

(defun xyp-get-Color (s1 / co)
"xyp-get-Color 取得物体的颜色（含随层）(xyp-get-Color s1实体)"
(if (setq co (xyp-DXF 62 s1))co(cdr (assoc 62 (tblsearch "layer" (xyp-DXF 8 s1)))))
)

寒潮大冬瓜 · 发表于 2024-4-29 23:58:56

xyp1964 发表于 2012-7-21 02:44

发表于 2012-7-21 02:44，每个大咖的成功都是努力得来,我之前努力学习也是琢磨到半夜……

寒潮大冬瓜 · 发表于 2024-4-30 00:01:05

;ZZ77批量改变图元文字样式名称
(DEFUN C:ZZ77()(ZZ77202404)(princ))
(defun ZZ77202404 ()
(SETQ  wenziName2024 (cdr (assoc 7 (entget (car (entsel)))))) ;获取所选图元的文字样式名
(setq NewwenziName2024(getstring (strcat "\n请输入ZZ77新文字样式名或者修改参照图元文字样式名：<" wenziName2024 ">")))
  (princ "\n请选择要改变的图元文字样式名2024年04月29日22时07分10秒")
  ;(setq ss (ssget "*text"))
(if (setq ss (ssget '((0 . "*text"))))
(xyp-SubUpd ss 7 NewwenziName2024);院长在明经http://bbs.mjtd.com/thread-95673-1-1.html公开的自定义函数
;xyp1964发表于 2012-7-21 01:18 xyp-SubUpd 更改图元DXF组码以修改实体属性 (xyp-SubUpd ename code newvalue)
)
  (princ)
)
拿来主义的模仿

xyp1964 · 发表于 2024-4-30 07:46:15

本帖最后由 xyp1964 于 2024-5-1 16:39 编辑

寒潮大冬瓜发表于 2024-4-30 00:01
;ZZ77批量改变图元文字样式名称
(DEFUN C:ZZ77()(ZZ77202404)(princ))
(defun ZZ77202404 ()

;; ZZ77批量改变图元文字样式名称
(defun c:ZZ77 () (abc (setq s1(car(entsel"\n选择参照文本: ")))) (princ))
(defun abc (e / st ss)
(setq st (xyp-DXF 7 e)
st (Ustr 1 "新文字样式名" st nil)
)
(if (setq ss (ssget '((0 . "*text")))) (xyp-SubUpd ss 7 st))
(princ)
)

寒潮大冬瓜 · 发表于 2024-4-30 22:01:17

xyp1964 发表于 2024-4-30 07:46

感谢院长优化指导！

寒潮大冬瓜 · 发表于 2024-5-21 00:56:38

辛苦院长指导
(defun C:SDDF(/ e i p s ss)
(princ "SDDX块坐标xyz转换为xzy格式(右视图)")
(setvar "CMDECHO" 0)
(if (and (setq s (ssget '((0 . "INSERT"))));兼容POINT点、圆circle、块INSERT等可根据需要调整
(< 1 (sslength s))
(setq i -1)
)
(progn
(while (setq e (ssname s (setq i (1+ i))))
(setq laynamA10 (cdr (assoc 10 (entget e))));准备获取所选图元A的端点10坐标xyz
(SETQ STRXA10 (rtos (car laynamA10) 2 16)) ;_内容X
(SETQ STRYA10 (rtos (cadr laynamA10) 2 16)) ;_内容Y
(SETQ STRzA10 (rtos (caddr laynamA10) 2 16)) ;_内容z
(SETQ xzy202405202257 (strcat STRxA10 "," STRZA10"," STRyA10));把图元坐标重组为xzy类似左右视图的显示需要
(princ xzy202405202257)
(terpri);回行显示下一项屏显
(SETQ E202405210041 (car(entget E)))
(princ E202405210041)
(terpri);回行显示下一项屏显
;(xyp-SubUpd2012-7-210118 E202405210041 10 '(STRXA10 STRzA10 STRyA10))
(xyp-SubUpd2012-7-210118 E202405210041 10 'xzy202405202257)
)
)
)
(setvar "CMDECHO" 1)
(princ)
)
;(xyp-SubUpd2012-7-210118 (car(entsel"\n选择图块: ")) 10 '(0 0 0))
;(car(entsel"\n选择图块: "))
; (SETQ xzy202405202257 (strcat STRxA10 "," STRZA10"," STRyA10));把图元坐标重组为xzy类似左右视图的显示需要
; (princ xzy202405202257)
; (terpri);回行显示下一项屏显

寒潮大冬瓜 · 发表于 2024-6-18 00:22:59

xyp1964 发表于 2012-7-30 13:52

院长好！这行代码“ (setq ss (ssadd s1 ss))”显示“参数个数不正确”，在自定义函数里面用该自定义函数……用VBA的思路有点不明白

hubeiwdlue · 发表于 2024-6-18 08:10:22

寒潮大冬瓜发表于 2024-6-18 00:22
院长好！这行代码“ (setq ss (ssadd s1 ss))”显示“参数个数不正确”，在自定义函数里面用该自定义函数 ...

s1也是选择集吗？那用ssadd不对的，要做并集。

xyp1964 · 发表于 2024-6-18 13:38:06

寒潮大冬瓜发表于 2024-6-18 00:22
院长好！这行代码“ (setq ss (ssadd s1 ss))”显示“参数个数不正确”，在自定义函数里面用该自定义函数 ...

(defun C:tt ()
"块坐标xyz转换为xzy格式"
(setq i -1)
(if (setq ss (ssget '((0 . "INSERT")))) ;兼容POINT点、圆circle、块INSERT等可根据需要调整
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq pt (xyp-DXF 10 s1)
pt (list (car pt) (caddr pt) (cadr pt))
)
(xyp-SubUpd s1 10 pt)
)
)
(princ)
)

寒潮大冬瓜 · 发表于 2024-6-18 19:04:50

xyp1964 发表于 2024-6-18 13:38

感谢院长指导！

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

[讨论] 【e派】工具箱函数再揭秘及应用实例