[影片]lisp程式:雲形線 轉聚合線

https://www.youtube.com/watch?v=DQ9pnzvPKMc

指令CVPL ??
奇怪 我在2010 他說沒這指令耶=ˇ=

新手CAD 寫到:指令CVPL ??
奇怪 我在2010 他說沒這指令耶=ˇ=

這是自訂開發的指令...所以AutoCAD無此功能~

不過從AutoCAD 2010版本開始新增了此功能!!
影片說明:
https://www.youtube.com/watch?v=rznYPXuelPI

可以給lisp的程式嗎

coka 寫到:可以給lisp的程式嗎

您好:
1.關於本論壇的教學文件及檔案資源，等級須為中級會員以上即可到下載資源專區，回覆主題後即可取得解壓縮密碼。
論壇宗旨:魚幫水、水幫魚的理想
http://autocad.bestoforum.net/forum-f14/topic-t753.htm

2.分享文章(作品)或回文提出幫助，這樣就有機會獲得積分，而論壇中有很多機會可以馬上獲得積分，請剛加入的朋友別急，請撥空搜尋及爬文。
積分說明
http://autocad.bestoforum.net/forum-f14/topic-t3563.htm

3.若是您想要立即升等，可以參考 贊助會員方案，即可立即升等權限。AutoCAD顧問論壇感謝您的贊助與支持!!
贊助會員專區
http://autocad.bestoforum.net/forum-f14/topic-t2715.htm

IF要中級那水可能幫不到魚
單鍵:SPL
可以選幾個弧(分段數)

代碼:

;---------------------雲形線變聚合線--------------------94.04.01載自海獺網站

(defun C:SPL (/ HOLDECHO OS SSS NUMPT N
ED ED1 PTST PTEND SS2 PT1 PT2
PT3 J ENT NNO ss
)

(defun VAL1 (N SS INDEX)
(cdr (assoc N (entget (ssname SS INDEX))))
)

(defun CH_IT (NOS)
(if (assoc NOS ED)
(progn
(if (assoc NOS ENT)
(setq ENT (subst (assoc NOS ED) (assoc NOS ENT) ENT))
(setq ENT (append ENT (list (assoc NOS ED))))
)
(entmod ENT)
)
)
)

(setq HOLDECHO (getvar "cmdecho"))
(setvar "cmdecho" 0)
(command "_.undo" "group")
(setq OS (getvar "osmode"))
(setvar "osmode" 0)
(prompt "\n請選雲形線 Please pick the spline: ")
(setq SSS (ssget '((0 . "spline"))))
(if SSS
(progn
(initget (+ 1 2 4))
(setq NUMPT
(getint
"\n分段數Please specify the accuracy of conversion: "
)
)
(setq N 0)
(repeat (sslength SSS)
(setq ED1 (ssname SSS N))
(setq ED (entget ED1))
(setq PTST (cdr (assoc 10 ED))
PTEND (cdr (assoc 10 (reverse ED)))
)
(command "_.divide" ED1 (* 2 NUMPT))
(setq SS2 (ssget "p"))
(if (= (logand (cdr (assoc 70 ED)) 1) 1)
(setq J 1)
(setq J 0)
)
(setq PT3 PTST)
(setq SS (ssadd))
(repeat NUMPT
(setq PT2 (VAL1 10 SS2 J))
(if (/= NUMPT (/ (+ J 2) 2))
(setq PT1 (VAL1 10 SS2 (+ 1 J)))
(setq PT1 PTEND)
)
(command "_.arc" PT3 PT2 PT1)
(ssadd (entlast) SS)
(setq PT3 PT1)
(setq J (+ 2 J))
)
(command "_.pedit" (ssname SS 1) "" "j" SS "" "")
(setq ENT (entget (entlast)))
(foreach NNO '(6 8 62 48)
(CH_IT NNO)
)
(command "_.erase" SS2 ED1 "")
(setq N (1+ N))
)
)
(alert "找不到Nothing selected!!")
)
(setvar "osmode" OS)
(command "_.undo" "end")
(setvar "cmdecho" HOLDECHO)
(princ)
)

請教各位大大前輩們
上段lisp程式有將它存成Cvpl.lsp後有成功過
後來將他的程式名稱改成cvpl.lsp後就一直
指令列輸入cvpl後都變成不明的指令~~~!!
有用工具/載入應用程式/載入(cvpl.lsp)原本存放位置
啟動套件/內容(也有將成是讀進來)
卻還是在改過名稱之後就都不能讀進lisp程式中(有將之前的釋放掉再從讀也不行).....請問有其它方式嗎?謝謝您

鍵入:spl
然後輸入要給的分段數
哈真是問錯問題了!!

MAYA100 寫到:鍵入:spl
然後輸入要給的分段數
哈真是問錯問題了!!

所以你是「操作問題」還是「載入問題」～
目前問題解決了嗎！

一直收集LISP檔與程式語言中
這正是我需太感謝蘋果爸了

剛好又碰到要雷射切割，這個lisp就很好用…可惜等級太低

tooth525 寫到:IF要中級那水可能幫不到魚
單鍵:SPL
可以選幾個弧(分段數)

代碼:

;---------------------雲形線變聚合線--------------------94.04.01載自海獺網站

(defun C:SPL (/ HOLDECHO OS SSS NUMPT N
ED ED1 PTST PTEND SS2 PT1 PT2
PT3 J ENT NNO ss
)

(defun VAL1 (N SS INDEX)
(cdr (assoc N (entget (ssname SS INDEX))))
)

(defun CH_IT (NOS)
(if (assoc NOS ED)
(progn
(if (assoc NOS ENT)
(setq ENT (subst (assoc NOS ED) (assoc NOS ENT) ENT))
(setq ENT (append ENT (list (assoc NOS ED))))
)
(entmod ENT)
)
)
)

(setq HOLDECHO (getvar "cmdecho"))
(setvar "cmdecho" 0)
(command "_.undo" "group")
(setq OS (getvar "osmode"))
(setvar "osmode" 0)
(prompt "\n請選雲形線 Please pick the spline: ")
(setq SSS (ssget '((0 . "spline"))))
(if SSS
(progn
(initget (+ 1 2 4))
(setq NUMPT
(getint
"\n分段數Please specify the accuracy of conversion: "
)
)
(setq N 0)
(repeat (sslength SSS)
(setq ED1 (ssname SSS N))
(setq ED (entget ED1))
(setq PTST (cdr (assoc 10 ED))
PTEND (cdr (assoc 10 (reverse ED)))
)
(command "_.divide" ED1 (* 2 NUMPT))
(setq SS2 (ssget "p"))
(if (= (logand (cdr (assoc 70 ED)) 1) 1)
(setq J 1)
(setq J 0)
)
(setq PT3 PTST)
(setq SS (ssadd))
(repeat NUMPT
(setq PT2 (VAL1 10 SS2 J))
(if (/= NUMPT (/ (+ J 2) 2))
(setq PT1 (VAL1 10 SS2 (+ 1 J)))
(setq PT1 PTEND)
)
(command "_.arc" PT3 PT2 PT1)
(ssadd (entlast) SS)
(setq PT3 PT1)
(setq J (+ 2 J))
)
(command "_.pedit" (ssname SS 1) "" "j" SS "" "")
(setq ENT (entget (entlast)))
(foreach NNO '(6 8 62 48)
(CH_IT NNO)
)
(command "_.erase" SS2 ED1 "")
(setq N (1+ N))
)
)
(alert "找不到Nothing selected!!")
)
(setvar "osmode" OS)
(command "_.undo" "end")
(setvar "cmdecho" HOLDECHO)
(princ)
)

前輩您好，想請問一下，我使用這個程式他會跳出：起點與終點角度必須不同。
導致無法使用，但另一台電腦卻可以，不知道是哪邊的問題影響了這個程式的運作

https://drive.google.com/file/d/1Kwkg4ycXuUoM8P2nJ0guhyURea3jA9QM/view?usp=sharing

爬國外論壇找到的LISP，試過蠻好用的。可以不受限制地全部框選，一起轉，不用一條條轉了