快速剖切符号

尘缘一生 · 发表于 2022-9-5 06:45

本帖最后由尘缘一生于 2022-9-5 06:47 编辑

fxlt619 发表于 2022-9-4 19:06
还是不能用啊

;取得图元参数值内容----------（一级）-------
;;(setq h (dxf1 ent 40))
; ent 为实体名或实体entget，
(defun dxf1 (ent i / tmp)
(if (= (type ent) 'ENAME)
(setq ent (entget ent '("*")))
)
(setq tmp (cdr (assoc i ent)))
(if (null tmp)
(cond
((= i 66) 0)
((= i 48) (getvar "celtscale"))
((= i 62) 256)
((= i 370) (setq tmp -1))
((= i 6) "ByLayer")
)
tmp
)
)
;(一级)====A-Z递增===取最大字符========
(defun slquzf ()
(if (setq ss (ssget "X" (list '(0 . "TEXT") '(1 . "[A-Z]") '(-3 ("POQIR")))))
(progn
(setq lst '())
(repeat (setq i (sslength ss))
(setq lst (cons (dxf1 (ssname ss (setq i (1- i))) 1) lst))
)
(setq sltex (chr (1+ (ascii (car (vl-sort lst '>))))))
)
(setq sltex "A")
)
)

;A-Z递增创建扩展字符========(一级)=====
(defun mktext (pt sltex h)
(regapp "POQIR")
(entmake (list '(0 . "TEXT") '(62 . 3) (cons 7 "hz")(cons 10 pt) (cons 40 h) (cons 1 sltex) '(41 . 0.7) '(72 . 1) (cons 11 pt) '(73 . 2)
(list -3 (list "POQIR" (cons 1000 sltex)))
)
)
(entlast)
)

fxlt619 · 发表于 2022-9-9 09:45

有能用的了吗？发个完整地呗，谢谢

cjf160204 · 发表于 2023-1-13 15:02

谢谢楼主分享

huxu823 · 发表于 2024-4-13 13:57

尘缘一生发表于 2022-9-5 06:45
;取得图元参数值内容----------（一级）-------
;;(setq h (dxf1 ent 40))
; ent 为实体名 ...

注销了(_undo1)，然后也补上了这部分函数，还是没法用啊

Qwer1243 · 发表于 2024-5-2 23:27

兄弟你的代码缺的函数再多点，发帖不能这样发啊.....

huxu823 · 发表于 2024-5-3 12:00

就不能发个能用的吗？不是源码也没关系

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