lizhiqiang9801 发表于 2011-12-26 10:47:30

好程序 可惜没钱 回复挣个小钱吧

asd19400 发表于 2011-12-29 01:34:54

没钱的日子很难过啊

qyming 发表于 2012-1-8 18:23:32

支持楼主

sdflq 发表于 2012-1-9 02:06:12

好程序，支持楼主

xing979020 发表于 2012-1-9 13:19:16

还不错。
可能不好控制吧

coco25825 发表于 2012-1-15 12:10:41

这段代码可以使用楼主演示的第一张图
(defun c:cj()

    (setvar "cmdecho" 0)
    (setq selnum (getvar "osmode"))
    (setvar "osmode" 0)
    (setq cly (getvar "clayer"))
    (setq tb (tblsearch "LAYER" "ZTEMP"))
    (if (= tb nil)(command "layer" "m" "ZTEMP" "c" 7 "ZTEMP" ""))
    (setq tb (tblsearch "LAYER" "ZZTEMP"))
    (if (= tb nil)(command "layer" "m" "ZZTEMP" "c" 7 "ZZTEMP" ""))


    (setq p1 (getpoint "\nFirst corner:"))
    (setq p2 (getcorner p1 "\nSecond corner:"))

    (setq ss (ssget "c" p1 p2 '((0 . "LINE"))))
    (setq ename (ssname ss 0))
    (setq endata (entget ename))
    (setq oldlay (cdr (assoc 8 endata)))
    (command "chprop" ss "" "la" "ZTEMP" "")

(if (= (sslength ss) 4)
(progn   
    (setq i 0)
    (repeat (sslength ss)

      (setq ename (ssname ss i))
      (command "chprop" ename "" "la" "ZZTEMP" "")   
      (setq endata (entget ename))
      (setq pt1 (cdr (assoc 10 endata)))
      (setq pt2 (cdr (assoc 11 endata)))
      
      (setq ppf (list pt1 pt2))
      (setq ssk (ssget "F" ppf))
      (setq ssp (ssget "P" '((8 . "ZTEMP"))))
;(print (sslength SSP))
      (if (= (sslength ssp) 2)
            (progn      
               (setq enamel (ssname ssp 0))
               (setq endata (entget enamel))
               (setq ptr11 (cdr (assoc 10 endata)))
               (setq ptr12 (cdr (assoc 11 endata)))
               (setq ptrim1 (inters pt1 pt2 ptr11 ptr12 nil))
               (setq enamel (ssname ssp 1))
               (setq endata (entget enamel))
               (setq ptr21 (cdr (assoc 10 endata)))
               (setq ptr22 (cdr (assoc 11 endata)))
               (setq ptrim2 (inters pt1 pt2 ptr21 ptr22 nil))
         (command "break" ename ptrim1 ptrim2)
         (setq ssz (ssget "X" '((8 . "ZZTEMP"))))
         (command "chprop" ssz "" "la" "ZTEMP" "")
             )   
      )   

      (setq i (+ i 1))
      
    )
      
)
)
    (setq ssz (ssget "X" '((8 . "ZTEMP"))))
    (command "chprop" ssz "" "la" oldlay "")
    (setvar "osmode" selnum)
    (setvar "clayer" cly)
(prin1)
)
(prin1)

chenjian2159 发表于 2012-1-16 10:58:33

coco25825 发表于 2012-1-15 12:10 static/image/common/back.gif
这段代码可以使用楼主演示的第一张图

命令:CJ
First corner:
Second corner:; 错误: 参数类型错误: lselsetp nil

yjycad 发表于 2012-1-16 21:45:50

没反应啊！

本帖最后由 yjycad 于 2012-1-16 21:48 编辑

朋友没反应啊，怎么回事啊？最后二个明经币了别浪费了啊！

yjycad 发表于 2012-1-16 21:54:18

经测试多线PL没用，只能用直线L

lgzh0008 发表于 2012-1-27 12:00:50

照顾穷人吧
页: 2 3 4 5 6 7 8 9 10 11 [12] 13 14 15 16 17 18 19 20 21
查看完整版本: 基于纯lisp编制的智能修剪程序