树櫴希德 发表于 2020-2-24 22:44:37

本帖最后由 树櫴希德 于 2020-2-25 23:07 编辑

根据曲线排序标注圆圈编号-1bianhao.LSP
1-1 1-2 1-3 .....
2-1 2-2 2-3.....
3-1 ....
.
.
.
.


czb203 发表于 2020-8-20 10:17:42

厉害了我的个哥

zst1978 发表于 2021-12-16 12:09:45

非常谢谢大侠分享

无厘崖 发表于 2022-10-17 15:35:27

大师厉害！:lol，感谢分享！

白色微風1991 发表于 2022-10-19 07:57:52

大師厲害！，感謝分享！

树櫴希德 发表于 2023-8-4 10:14:22

树櫴希德 发表于 2020-2-24 16:10
根据曲线排序标注圆圈编号bianhao

(defun vxs (e / i v lst)
(setq i 0)
(while
    (setq v (vlax-curve-getpointatparam e (setq i (1+ i))))
   (setq lst (cons v lst))
)
(reverse lst))
;;;;;;;;;;;;;;;
(defun 38zu ( e / e)
(cdr(assoc 38(entget e)))
)
;;;;;
(defun 10zu ( e / e)
(cdr(assoc 10(entget e)))
)
;;;;;
(defun 1zu ( e / e)
(cdr(assoc 1(entget e)))
)
;;;;;;
(defun c:tt1188 ( / lst ent pts pt demj zmj ffn ff) ;标记三角网表面积

(setq lst (ssget "x" '( (0 . "text") (8 . "fgbj1")) ) )
(setq i 0)
;(setq zmj 0.000)
(setq ffn (getfiled "选取/建立数据导出文件" "" "txt" 1))
(setq ff (open ffn "w"))


(while(< i (sslength lst))

(setq ent (ssname lst i))


(princ (strcat (1zu ent)","(rtos (cadr(10zu ent)) 2 3) "," (rtos (car(10zu ent)) 2 3)"," (rtos (last(10zu ent)) 2 3) "\n"
    ) ff)





;(setq zmj(+ zmj demj))

(setq i (+ i 1))


)

(close ff)
(princ)

)
页: 1 [2]
查看完整版本: 水泥搅拌桩编号