luchangliang 发表于 2008-11-3 11:11:00

<p>刚开始直接点，下不下来</p><p>后来发现要用右键另存为才能下</p><p>奇怪奇怪</p>

jh1005 发表于 2008-12-16 00:11:00

<p>谢谢分享</p>

luckier 发表于 2008-12-21 15:51:00

感谢分享，在慢慢探索中

yue143 发表于 2008-12-21 21:44:00

不错了。。。支持一下

xyp1964 发表于 2009-1-30 00:02:00

;; 相同内容文字按上→下→左→右相连线<br/>(defun c:test766 (/ s1 ss i ptn)<br/>&nbsp; (cmdla0)<br/>&nbsp; (if (and (setq s1 (car (entsel "\n请选取要连线的其中一个文字: ")))<br/>&nbsp;&nbsp;&nbsp; (= (xyp-get-dxf 0 s1) "TEXT")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (prompt "\n框选所要连线的范围: ")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq ss&nbsp;(ssget (list '(0 . "TEXT") (cons 1 (xyp-get-dxf 1 s1))))<br/>&nbsp;&nbsp;&nbsp;&nbsp; i&nbsp;-1<br/>&nbsp;&nbsp;&nbsp;&nbsp; ptn&nbsp;'()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setvar "osmode" 0)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (xyp-MkLaCo "TEST" 1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (while (setq s1 (ssname ss (setq i (1+ i))))<br/>&nbsp;(setq ptn (cons (xyp-get-dxf 10 s1) ptn))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if ptn<br/>&nbsp;(xyp-Entmake-lwPolyline (xyp-Sort-PListByXYZ ptn) nil)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )<br/>&nbsp; (cmdla1)<br/>)

xyp1964 发表于 2009-1-30 00:07:00

<p>;; 对话框测试<br/>(defun c:test758 ()<br/>&nbsp; (setq klst '("bo0" "bo1" "bo2" "bo3" "bo4" "bo5" "bo6" "bo7" "bo8" "bo9"))<br/>&nbsp; (defun aaa ()<br/>&nbsp;&nbsp;&nbsp; (xyp-Dcl-Gettile klst)<br/>&nbsp;&nbsp;&nbsp; (defun mt (key lst / a)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (cond ((= key "1") (foreach a lst (mode_tile a 0)))<br/>&nbsp;&nbsp;&nbsp;&nbsp; ((= key "0") (foreach a lst (mode_tile a 1)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; (mt bo0 '("t00" "t01"))<br/>&nbsp;&nbsp;&nbsp; (mt bo1 '("t10" "t11"))<br/>&nbsp;&nbsp;&nbsp; (mt bo2 '("t20" "t21"))<br/>&nbsp;&nbsp;&nbsp; (mt bo3 '("t30" "t31"))<br/>&nbsp;&nbsp;&nbsp; (mt bo4 '("t40" "t41"))<br/>&nbsp;&nbsp;&nbsp; (mt bo5 '("t50" "t51"))<br/>&nbsp;&nbsp;&nbsp; (mt bo6 '("t60" "t61"))<br/>&nbsp;&nbsp;&nbsp; (mt bo7 '("t70" "t71"))<br/>&nbsp;&nbsp;&nbsp; (mt bo8 '("t80" "t81"))<br/>&nbsp;&nbsp;&nbsp; (mt bo9 '("t90" "t91"))<br/>&nbsp; )<br/>&nbsp; (defun bbb ()<br/>&nbsp;&nbsp;&nbsp; (foreach a klst (set_tile a "1"))<br/>&nbsp;&nbsp;&nbsp; (aaa)<br/>&nbsp; )<br/>&nbsp; (defun ccc ()<br/>&nbsp;&nbsp;&nbsp; (foreach a klst (set_tile a "0"))<br/>&nbsp;&nbsp;&nbsp; (aaa)<br/>&nbsp; )<br/>&nbsp; (xyp-initSet<br/>&nbsp;&nbsp;&nbsp; '(bo0 t00 t01 bo1 t10 t11 bo2 t20 t21 bo3 t30 t31 bo4 t40 t41 bo5 t50 t51 bo6 t60 t61 bo7 t70<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; t71 bo8 t80 t81 bo9 t90 t91 r1 r2&nbsp;r3)<br/>&nbsp;&nbsp;&nbsp; '("0" "" ""&nbsp;"0" "" "" "0" "" "" "0"&nbsp;"" "" "0" "" ""&nbsp;"0" "" "" "0" "" "" "0"&nbsp;"" "" "0" "" ""&nbsp;"0"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "" "" "1"&nbsp;"0" "0")<br/>&nbsp; )<br/>&nbsp; (setq&nbsp;Ilst '((nil nil ":row{")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("bo0" "dist0" "bool" "(aaa)")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("t00" "" "str" "10")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("t01" "" "str" "10")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (nil nil "}")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (nil nil ":row{")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("bo1" "dist1" "bool" "(aaa)")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("t10" "" "str" "10")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("t11" "" "str" "10")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (nil nil "}")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (nil nil ":row{")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("bo2" "dist2" "bool" "(aaa)")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("t20" "" "str" "10")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("t21" "" "str" "10")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (nil nil "}")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (nil nil ":row{")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("bo3" "dist3" "bool" "(aaa)")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("t30" "" "str" "10")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("t31" "" "str" "10")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (nil nil "}")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (nil nil ":row{")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("bo4" "dist4" "bool" "(aaa)")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("t40" "" "str" "10")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("t41" "" "str" "10")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (nil nil "}")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (nil nil ":row{")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("bo5" "dist5" "bool" "(aaa)")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("t50" "" "str" "10")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("t51" "" "str" "10")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (nil nil "}")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (nil nil ":row{")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("bo6" "dist6" "bool" "(aaa)")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("t60" "" "str" "10")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("t61" "" "str" "10")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (nil nil "}")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (nil nil ":row{")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("bo7" "dist7" "bool" "(aaa)")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("t70" "" "str" "10")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("t71" "" "str" "10")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (nil nil "}")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (nil nil ":row{")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("bo8" "dist8" "bool" "(aaa)")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("t80" "" "str" "10")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("t81" "" "str" "10")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (nil nil "}")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (nil nil ":row{")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("bo9" "dist9" "bool" "(aaa)")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("t90" "" "str" "10")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("t91" "" "str" "10")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (nil nil "}")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (nil nil ":row{")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("bt1" "全选" "button1" "(bbb)")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("bt2" "全部取消" "button1" "(ccc)")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (nil nil "}")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (nil nil ":boxed_radio_row{label=\"操作\";")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("r1" "默认" "radio")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("r2" "代替" "radio")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("r3" "插入" "radio")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (nil nil "}")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (nil nil "user" "(aaa)")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )<br/>&nbsp; (if (= (xyp-Dcl-Init Ilst "【整体替换】" t) 1)<br/>&nbsp;&nbsp;&nbsp; (princ "TEST-OK")<br/>&nbsp; )<br/>)</p><p></p>

xyp1964 发表于 2009-1-30 00:08:00

;; 保留数字文本大值<br/>(defun c:test765 ()<br/>&nbsp; (CMDLA0)<br/>&nbsp; (setq&nbsp;ss&nbsp; (ssget '((0 . "TEXT")))<br/>&nbsp;lst '()<br/>&nbsp;i&nbsp;&nbsp; -1<br/>&nbsp; )<br/>&nbsp; (while (setq s1 (ssname ss (setq i (1+ i))))<br/>&nbsp;&nbsp;&nbsp; (if&nbsp;(setq b (xyp-get-dxf 1 s1))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq lst (cons (list b s1) lst))<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )<br/>&nbsp; (if lst<br/>&nbsp;&nbsp;&nbsp; (foreach a (cdr<br/>&nbsp;&nbsp; (vl-sort lst<br/>&nbsp;&nbsp;&nbsp;&nbsp; '(lambda (e1 e2) (&gt; (distof (car e1)) (distof (car e2))))<br/>&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (xyp-erase (cadr a))<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )<br/>&nbsp; (CMDLA1)<br/>)

xyp1964 发表于 2009-1-30 00:09:00

;; 算式文本计算<br/>(defun c:test767 (/ ss i s1 tx a)<br/>&nbsp; (cmdla0)<br/>&nbsp; (xyp-initSet '(INT) '(3))<br/>&nbsp; (SETQ INT (UINT 5 "" "计算精度" INT))<br/>&nbsp; (if (not (member "geomcal.arx" (arx)))<br/>&nbsp;&nbsp;&nbsp; (arxload "geomcal.arx")<br/>&nbsp; )<br/>&nbsp; (setq&nbsp;ss (ssget '((0 . "text")))<br/>&nbsp;i&nbsp; -1<br/>&nbsp; )<br/>&nbsp; (while (setq s1 (ssname ss (setq i (1+ i))))<br/>&nbsp;&nbsp;&nbsp; (setq tx (xyp-get-dxf 1 s1))<br/>&nbsp;&nbsp;&nbsp; (if&nbsp;(setq a (c:cal tx))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (xyp-SubUpd s1 1 (strcat tx " = " (rtos a 2 INT)))<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )<br/>&nbsp; (cmdla1)<br/>)

xyp1964 发表于 2010-7-29 13:44:00

工具箱界面：

xyp1964 发表于 2010-12-25 15:07:04

本帖最后由 xyp1964 于 2010-12-25 15:12 编辑

图层函数：
【函数】: XYP-MkLaCo
【功能】: 图层颜色格式化输入
【语法】: (XYP-MKLACO 层名 颜色号)
(defun xyp-MkLaCo (LayerName LayerColor)
(if (= (Tblsearch "layer" LayerName) nil)
    (Command "layer" "m" LayerName "c" LayerColor LayerName "")
    (Command "layer" "t" LayerName "s" LayerName "c" LayerColor LayerName "")
)
(setvar "celtype" "ByLayer")
(princ)
)
(defun mkla (LayerName LayerColor)
(xyp-mkLaCo LayerName LayerColor)
)

页: 1 2 3 [4] 5 6
查看完整版本: [分享]通用函数