xyp1964 发表于 2012-7-21 02:44
发表于 2012-7-21 02:44，每个大咖的成功都是努力得来,我之前努力学习也是琢磨到半夜……
;ZZ77批量改变图元文字样式名称
(DEFUN C:ZZ77()(ZZ77202404)(princ))
(defun ZZ77202404 ()
(SETQwenziName2024 (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)
)
拿来主义的模仿:loveliness:
本帖最后由 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)
)
xyp1964 发表于 2024-4-30 07:46
感谢院长优化指导！
辛苦院长指导
(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);回行显示下一项屏显
xyp1964 发表于 2012-7-30 13:52
院长好！这行代码“ (setq ss (ssadd s1 ss))”显示“参数个数不正确”，在自定义函数里面用该自定义函数……用VBA的思路有点不明白
寒潮大冬瓜 发表于 2024-6-18 00:22
院长好！这行代码“ (setq ss (ssadd s1 ss))”显示“参数个数不正确”，在自定义函数里面用该自定义函数 ...
s1也是选择集吗？那用ssadd不对的，要做并集。
寒潮大冬瓜 发表于 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)
)
xyp1964 发表于 2024-6-18 13:38
感谢院长指导！
本帖最后由 寒潮大冬瓜 于 2024-6-19 19:44 编辑
请教院长，用代码生成的cass属性高程点，是个大圆点，大圆点会遮盖多数时候的线线交点，作图容易获取点不准确，期待生成等边三角形的cass属性高程点！辛苦院长指导指导……
;;;Gu_xl201209271019创建Cass高程点(Gu_xl201209271019插入点高程图块比例小数位数)
;(setq inspt (getpoint)) (setq scale 0.5) (setq height "AAAA")
(defun Gu_xl201209271019 (inspt height scale xsws / pt blkdef obj)
(command "layer" "m" "GCD" "c" "1" "" "L" "CONTINUOUS" """")
(if height
(setq height (rtos height 2 xsws))
(setq height "")