cad抠图 lisp_[原创]几个超级有用的裁剪用autocad--lisp程序

在进行裁剪时设计了以下程序可以大大提高效率，奉献给大家使用。

1。命令 ： XCC  直接写出spline的长度。用途：直接写出Spline描出的曲线 索 裁剪线 的长度。

源码：

(defun c:xcc (/ ent curve-obj leng)

;统计线长度SPline/Line/ARC适用

(setvar "cmdecho" 0)

(vl-load-com)

( princ

"\n★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ ")

( princ

"\n★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ ")

( princ

"\n★★★★★<> (SPline/Line/ARC适用)

李想--blessli@126.com 2010.8.17")

;*****************************

(princ "\n★★★★★请选择SPline/

Line/ ARC 线: ")

(setq ss (ssget)

i 0

l  (sslength

ss)

SumLine 0

)

(while (< i l)

(setq entname

(entget (ssname ss ii))

ent  (ssname ss i)

i

(+ 1

i)

)

;(setq ent (entsel))

(setq curve-obj

(vlax-ename->vla-object  ent

))

(setq LLleng

(vlax-curve-getDistAtParam curve-obj (vlax-curve-getEndParam

curve-obj) ) )

;(princ LLleng)

(setq  SumLine (+ SumLine LLleng )  )

);end (while (< i l)

;*******************************************

(setq TextPoint (getpoint

"\n★★★★★请选择文字插入点:") )

(command "TEXT"

TextPoint  50

""  (rtos

SumLine )  )

(setq

SumLine 0  )

;(princ)

(setvar "cmdecho" 1)

)

2。命令 ：  SSS  将Spline近似延长。理论上SPline是不可延长的，本程序取Spline端部1mm

交点作为方向延长指定长度。用途：裁剪片偏移出放边量后 边角的修整

源码：

;;-----------------------------------------------

;; SPline延长程序：SSS

;; blessli@126.com

(defun C:sss (/ SSL  ;length of SS

PTS

;returning list

AOBJ1

;Object 1

AOBJ2

;Object 2

N1

;Loop counter

N2

;Loop counter

IPTS

;intersects

A N NN

HOLDOSMODE)

(vl-load-com)

(COMMAND "_.UNDO"

"_GROUP")

(princ

"\n★★★★★Spline近似延长程序 V1.0 ---李想blessli@126.com---2010.8.18")

(setq SPL1_Point1

(getpoint "\n★★★★★请点取Spline 端点:") )

(setq

SPL1_Point1_x (car