将现有lisp修改为

ROBP · 发表于 2022-7-5 23:49:20

我需要生成多个id或od尺寸相同、厚度相同但高度不同的圆锥体，没有标高和尺寸。
Therofore通过只输入和/或选择id或od，输入大小尺寸和相同厚度，但需要输入1到任何可变高度，增量为1英寸，可以做到吗？提前谢谢。

Lisp程序：

（defun C:DEVCON（）
;==============================================================================
;          方案原则（开发联合国锥）
;
; 变量使用。。。INVP、IVVG
; 注：LE Program CALCULE（标准杆数默认值）LES DIMENSIONS Developes A PARTIR
;    圆锥体外部旋转。SI LA COTATION EST different，C'EST
;    ALORS QU'INTERVIENNENT LES VARRIABLES INVG ET INVP
;
; INVP=1 LORSQUE LE PETIT DIAMETRE EST COTE A L'EXTERIEUR
; INVG=1 LORSQUE LE GRAND DIAMETRE EST COTE A L'EXTERIEUR
; INVP=-1 LORSQUE LE PETIT DIAMETRE EST COTE A L'INTERIEUR
; INVG=-1 LORSQUE LE GRAND DIAMETRE EST COTE A L'INTERIEUR
;==============================================================================
（IDOD“\nLE PETIT DIAMETRE DU CONE EST-IL COTE A L'INTERIEUROU A L'EXTERIEUR？”）
（如果（或（=ANS“e”）（=ANS“e”））
（PROGN（SETQ INVP 1）
（SETQ PRE（/（GETREAL“\nPETIT DIAMETRE EXTERIEUR=…？”）2))
)
（PROGN（SETQ INVP-1）
（SETQ PRE（/（GETREAL“\nPETIT DIAMETRE INTERIEUR=…？”）2))
)
);FIN DU IF
（IDOD“\nLE GRAND DIAMETRE DU CONE EST-IL COTE A L'INTERIEUROU A L'EXTERIEUR？”）
（如果（或（=ANS“e”）（=ANS“e”））
（程序（SETQ INVG 1）
（SETQ GRE（/（GETREAL“\n外径=…？”）2))
)
（PROGN（SETQ INVG-1）
（SETQ GRE（/（GETREAL“\n内径=…？”）2))
)
);FIN DU IF
（SETQ H（GETREAL“\nHAUTEUR DU CONE=…？”）
EP（GETREAL“\ Nepaiseur DE LA Plate=…？”）
NSEG（GETREAL“\nNOMBRE DE SEGMENT=…？”）
)
（开发）；计算与开发基金会
（DIMCON）；圆锥体有限尺寸函数
)       ;FIN DE LA FONCTION DEVCON公司

（DEFUN DIMCON（/PTW1 PTW2 F PH3 PH4）
（SETQ GRE（*0.6 GRE）；DE L'ECHELLE DE‘DIMCON’减少
PRE（*0.6 PRE）；模因
H（*0.6小时）；模因
EP（*0.6 EP）；模因
DX（*事实1.5）；“DIMCON”水平位置
DY（*FACT-4）；“DIMCON”垂直位置
)
（如果（和（=1 INVG）（=1 INVP））
（POINTEX）
（如果（和（=-1 INVG）（=-1 INVP））
（点输入）
（如果（和（=1 INVG）（=-1 INVP））
（POINTINPEXG）
（点扩展）
);FIN DU IF 3
);FIN DU IF 2
);FIN DU IF 1

（SETQ PTW2（列表（+（CAR PT1）2.5）（（CADR PT4）2.5））
PTW1（列表（-CAR PT5）2.5）（+（CADR PT5）2.5））
F（*事实0.4）；FACTEUR D'ESPACEMENT POUR LES HACHURES公司
PH3（列表（-CAR PT3）（*EP（COS PHI）））（+（CADR PT2）（*EP（SIN PHI）））
PH4（列表（+（CAR PT1）（*EP（COS PHI）））（（CADR PT4）（*EP（SIN PHI）））
)
;----------------------------------------------------------------------------
;PTW1 PTW2 POINTS DE Resere POUR LA SELECTION D'OBJET LORS DES HACHURES
;PH3 PH4点DE repre POUR LA SELECTION D'OBJET LORS DE LA COMMANDE“MIRROR”
;F FACTEUR D'ESPACEMENT DES HACHURES
;-----------------------------------------------------------------------------

（如果（>（*INVG INVP）0）
（命令“PLINE”PT1“W”“0”“”PT2 PT3 PT4“C”）
（命令“PLINE”PT1“W”“0”“”PT4 PT2 PT3“C”）
)
（命令行“PT2 PT5”）
（命令行“PT3 PT7”）
（如果（=发票1）
（命令行“PT4 PT8”）
（命令行“PT1 PT8”）
)
（如果（和（>（SIN PHI）0.5）(
（SETQ R 112.5）
（SETQ R 90）
)
（SETQ COT1（RTOS（*3.333（-CAR PT1）DX））5 4）
COT2（RTOS（*3.333（-CAR PT2）DX））5 4）
COT3（RTOS（*1.667（-CADR PT2）（CADR PT1）））5 4）
);A justement DE LA COTATION D-AU factur D'ECHELLE（0.7）

（命令“HATCH”“ANSI32”F R（SSGET“W”PH3 PH4）”）
（命令“MIRROR”“W”PTW1 PTW2“PT5 PT8”）
（命令“DIM”“HORI”PT1（列表（-CAR PT1）（*GRE 2））（CADR PT1））
（列表（CAR PT4）（（CADR PT4）（*事实0.5）））COT1）
（命令“HORI”PT2（列表（-CAR PT2）（*2 PRE））（CADR PT2））
（列表（CAR PT2）（+（CADR PT2）（*0.5事实）））COT2）
（命令“VERT”PT1 PT2（列表（+（CAR PT1）（*0.5事实））（CADR PT1））COT3）
（命令“退出”）
（命令“REDRAW”）
);FIN DE LA FONUCT DIMCONEX公司

（DEFUN DEV（/PT1 PT2 PT3 PT4 PT5 PT6 PT7 PT8 PT9 PTC R1 R2 HE CL）
（SETQφ0.5）
（重复20；迭代POUR TROUVER LA PENTE EXACTE DU CONE
（SETQ PHI（ATAN（/（-GRE（*EP 0.5 INVG（COS PHIE）））
（-PRE（*EP 0.5 INVP（COS PHIE）））H）
PHIE PHI
)
)
（SETQ R1（/（-GRE（*EP 0.5 INVG（COS PHI）））（SIN PHI））
R2（/（-PRE（*EP 0.5 INVP（COS PHI）））（SIN PHI））
ALP（/（*PI（-GRE（*（COS PHI）INVG EP 0.5）））R1 NSEG）
)
;------------------------------------------------------------------------------
;          A使用L'ECRAN尺寸
;
; 他很傲慢
; 事实维度VALANT UN POUCE QUELQUE SOIT L'ECHELLE DU DESSIN
; PTC位置DU点中心DU开发
; CHOIX可变独立模式
;-----------------------------------------------------------------------------
（如果(
（程序
（SETQ HE（*2.5 R1（SIN ALP））
事实（*0.091 HE）
PTC（列表0（+（*事实-2）R2（/（-R1 R2）2）））
CHOIX 0
)
)
)
（如果（和（>=ALP（/PI 3））(
（程序
（SETQ HE（*3 R1）
事实（*0.091 HE）
PTC（列表0（+（*事实-2）（/R1 2）））
CHOIX 0
)
)
)
（如果（>ALP（/PI 2））
（程序
（SETQ HE（*3.4 R1）
事实（*0.091 HE）
PTC（列表0（*FACT-3））
CHOIX 1
)
)
) ;FIN DU IF

（SETQ PLIM1（列表（*HE-0.75）（*HE-1））；点界限推断
PLIM2（列表（*HE 0.75）（*HE 1））；最高权利点
;----------------------------------------------------------------------------
; POUR LA DEFINITION DES POINTS PT1 A PT9，CONSULTER LE DOCUMENT。。。
;----------------------------------------------------------------------------
PT1（列表（*R2（SIN-ALP））（（（*R2（COS-ALP））（CADR-PTC）））
PT2（列表（*R1（SIN-ALP））（（（*R1（COS-ALP））（CADR-PTC）））
PT3（列表（*R1（SIN（*ALP-1）））（（（*R1（COS ALP））（CADR PTC）））
PT4（列表（*R2（SIN（*ALP-1）））（（（*R2（COS ALP））（CADR PTC）））
PT5（列表0（-R1（CADR PTC）））
PT6（列表0（-R2（CADR PTC）））
PT7（列表（*R1（SIN（/ALP 1.5）））
（（*R1（COS（/ALP 1.5））（CADR PTC）））
PT8（列表（*R2（SIN（*ALP 0））
（（*R2（COS（*ALP 0））（CADR PTC）））
PT9（列表（*R1（SIN（/ALP-4）））
（（*R1（COS（/ALP-4））（CADR PTC）））
)
;-----------------------------------------------------------------------------
;                   德辛命令。。。
;-----------------------------------------------------------------------------
（命令“极限”PLIM1 PLIM2）
（命令“ZOOM”“ALL”）
（命令行“PT1 PT2”）
（命令行“PT4 PT3”）
（命令“ARC”PT2 PT5 PT3）
（命令“ARC”PT1 PT6 PT4）
（SETVAR“DIMTIX”0）；莱斯迪姆广场
（SETVAR“DIMSCALE”（*1.2事实））；AJUSTE LA DIMENSION DES COTES公司
（SETVAR“LTSCALE”（*0.8事实））；AJUSTE LE FACTEUR D'ECHELLE DES LIGNES公司
（SETVAR“LUNITS”5）；联合分形系统
（命令“LINETYPE”S“CENTER”）
（命令“行”（列表0（+（CADR PT5）（*事实0.75）））
（列表0（-CADR PT6）（*事实0.75））“”）
（命令“LINETYPE”S“CONTINUOUS”）

（如果（=CHOIX 0）
（PROGN（SETVAR“DIMSE2”1）；ENLEVE LA DEUXIEME LIGNE D'EXTENSUON
（命令“DIM”“HORI”PT2 PT5（列表0（+（CADR PT5）（*0.5事实））“”）
（SETVAR“DIMSE2”0）；REMET LA DEUXIEME LIGNE D`扩展
（命令“HORI”PT1 PT2（列表0（-CADR PT1）（*0.5事实））“”）
（命令“HORI”PT2（列表（*（CAR PT2）-1）（CADR PT2））（列表0（+（CADR PT5）（*1事实））“”）
（命令“VERT”PT2 PT1（列表（+（CAR PT2）（*0.75事实））0）”）
（命令“VERT”PT1 PT5（列表（+（CAR PT2）（*1.75事实））0）”）
（命令“RADIUS”PT7”“（*-1.5事实））
（命令“RADIUS”PT8”“（*-1.0事实））
（命令“退出”）
);那么FIN DU PROGN
（程序
（命令“DIM”“HORI”PT2 PTC（列表0（-CADR PT2）（*0.5事实））“”）
（命令“VERT”PT2 PTC（LIST（+R1（*0.5事实））0）”）
（命令“RADIUS”PT9”“（*-2事实））；COTATION GRAND人造丝
（命令“RADIUS”PT8”“（*-0.8事实））；COTATION小人造丝
（命令“退出”）
);FIN DU PROGN ELSE项目
);FIN DU IF

（命令“REGENALL”）
);FIN DE LA FONC。DEVCON公司

（DEFUN IDOD（ARG）
（INITGET 1“I I E”）
（SETQ ANS（STRCASE（GETKWORD ARG）））
)

;===========================================================================
;LES 4 Fontion SUIVANTES，Calculaten LES POINTS POUR LE DESSIN DU CONE FORME
;===========================================================================

（DEFUN POINTEX（）
;---------------------------------------------------------------------------
;  - 功能使用LORSQUE LA COTATION EST EXTERIEUR（2个直径）
;  - POUR LA DEFINITION DES POINTS CONSULTER LE DOCUMENT。。。
;---------------------------------------------------------------------------
（SETQ PT1（列表（+DX GRE）（+DY（/H-2）））
PT2（列表（+DX PRE）（+DY（/H 2）））
PT3（列表（+DX（-PRE（*EP（COS PHI）））（+DY（-H 2）（*EP（SIN PHI）а）а）
PT4（列表（+DX（-GRE（*EP（COS-PHI）））（+DY（-H-2）（*EP（SIN-PHI）а）а）
PT5（列表DX（+DY（/H 2）））
PT7（列表DX（+DY（/H 2）（*EP（SIN PHI 1072;）а）））
PT8（列表DX（+DY（-（/H-2）（*EP（SIN PHI）а）а）
)
)
（DEFUN POINTIN（）
;---------------------------------------------------------------------------
;  - 基金会利用LORSQUE LA COTATION EST INTER

ymg3 · 发表于 2022-7-6 00:14:01

That should do it.

But the program did not operate at first, and there is still a problem with the radius cotation for the big circle.

Not a nice piece of software.

ymg

[code](defun c:devcon ();==============================================================================; PROGRAMME PRINCIPALE ( DEVELOPPEMENT D'UN CONE ) ; ; VARIABLES UTILISEE... INVP, IVVG ; NOTE: LE PROGRAMME CALCULE (PAR DEFAULT) LES DIMENSIONS DEVELOPPEES A PARTIR ; DE LA COTATION EXTERIEURE DU CONE. SI LA COTATION EST DIFFERENTE, C'EST ; ALORS QU'INTERVIENNENT LES VARRIABLES INVG ET INVP ; ; INVP=1 LORSQUE LE PETIT DIAMETRE EST COTE A L'EXTERIEUR ; INVG=1 LORSQUE LE GRAND DIAMETRE EST COTE A L'EXTERIEUR ; INVP=-1 LORSQUE LE PETIT DIAMETRE EST COTE A L'INTERIEUR ; INVG=-1 LORSQUE LE GRAND DIAMETRE EST COTE A L'INTERIEUR ;============================================================================== (idod "\nLE PETIT DIAMETRE DU CONE EST-IL COTE A L'INTERIEUR <i> OU A L'EXTERIEUR ? ") (if (or (= ans "e") (= ans "E")) (progn (setq invp 1) (setq pre (/ (getreal "\nPETIT DIAMETRE EXTERIEUR =...? ") 2)) ) (progn (setq invp -1) (setq pre (/ (getreal "\nPETIT DIAMETRE INTERIEUR =...? ") 2)) ) ) (idod "\nLE GRAND DIAMETRE DU CONE EST-IL COTE A L'INTERIEUR <i> OU A L'EXTERIEUR ? ") (if (or (= ans "e") (= ans "E")) (progn (setq invg 1) (setq gre (/ (getreal "\nGRAND DIAMETRE EXTERIEUR =...? ") 2)) ) (progn (setq invg -1) (setq gre (/ (getreal "\nGRAND DIAMETRE INTERIEUR =...? ") 2)) ) ) (setq ep (getreal "\nEPAISSEUR DE LA PLAQUE =...? ") nseg (getreal "\nNOMBRE DE SEGMENT =...? ") hmin (getreal "\nHAUTEUR DU CONE PLUS PETIT CONE =...? ") hmax (getreal "\nHAUTEUR DU CONE PLUS GRAND CONE =...? ") incr 1 ) (command "_LAYER" "M" "CONES" "") (setvar 'CLAYER "0") (command "_LAYER" "_F" "CONES" "") (while (

ROBP · 发表于 2022-7-6 00:21:44

Thank you ymg how about if you could remove the dimensions and the elvetion generated view
because for now theres is no need for the above i delete them .
The reason for the lisp is only to be able to get the exact square footage of each diemnsions and then put it in excel data base and generate the total weight of a vessell i already been working on the file for the past year and already have listed 46000 item with drop down menu and select items.
The only thing left to add is the conical parts.

Unless you can come up with the formula derived from the lisp for excell i will make it work.

ymg3 · 发表于 2022-7-6 00:46:50

Robp,

Here is a very fast hack. I rem'd out the dimension part, turn your segment into a polyline and added text for the area of the segment and the whole cone.

However when I check the output against the formula

登录/注册后可看大图

There are small differences, even if I go to the average between the inside and the outside diameters.

It seems to me that it would be simpler for you to use the formula straight into Excel.
If you have Large Diam. in Column A , Small Diam. in Column B and Height in Column C, then the EXCEL formula would be:

copy

=PI()*((B2/2)+(A2/2))*SQRT((C2*C2)+(((A2-B2)/2))*((A2-B2)/2))

Anyway here is the Autolisp Code modified:

copy

(defun c:devcon ();==============================================================================; PROGRAMME PRINCIPALE ( DEVELOPPEMENT D'UN CONE )                             ;                                                                              ; VARIABLES UTILISEE... INVP, IVVG                                             ; NOTE: LE PROGRAMME CALCULE (PAR DEFAULT) LES DIMENSIONS DEVELOPPEES A PARTIR ; DE LA COTATION EXTERIEURE DU CONE. SI LA COTATION EST DIFFERENTE, C'EST      ; ALORS QU'INTERVIENNENT LES VARRIABLES INVG ET INVP                           ;                                                                              ; INVP=1 LORSQUE LE PETIT DIAMETRE EST COTE A L'EXTERIEUR                      ; INVG=1 LORSQUE LE GRAND DIAMETRE EST COTE A L'EXTERIEUR                      ; INVP=-1 LORSQUE LE PETIT DIAMETRE EST COTE A L'INTERIEUR                     ; INVG=-1 LORSQUE LE GRAND DIAMETRE EST COTE A L'INTERIEUR                     ;============================================================================== (idod "\nLE PETIT DIAMETRE DU CONE EST-IL COTE A L'INTERIEUR <i> OU A L'EXTERIEUR  ? ") (if (or (= ans "e") (= ans "E"))   (progn (setq invp 1)          (setq pre (/ (getreal "\nPETIT DIAMETRE EXTERIEUR =...? ") 2))   )   (progn (setq invp -1)          (setq pre (/ (getreal "\nPETIT DIAMETRE INTERIEUR =...? ") 2))   ) )  (idod "\nLE GRAND DIAMETRE DU CONE EST-IL COTE A L'INTERIEUR <i> OU A L'EXTERIEUR  ? ") (if (or (= ans "e") (= ans "E"))   (progn (setq invg 1)          (setq gre (/ (getreal "\nGRAND DIAMETRE EXTERIEUR =...? ") 2))   )   (progn (setq invg -1)          (setq gre (/ (getreal "\nGRAND DIAMETRE INTERIEUR =...? ") 2))   ) )  (setq ep   (getreal "\nEPAISSEUR DE LA PLAQUE =...? ")       nseg (getreal "\nNOMBRE DE SEGMENT =...? ")               hmin (getreal "\nHAUTEUR DU CONE PLUS PETIT CONE =...? ")       hmax (getreal "\nHAUTEUR DU CONE PLUS GRAND CONE =...? ")       incr 1           ) (command "_LAYER" "M" "CONES" "") (setvar 'CLAYER "0") (command "_LAYER" "_F" "CONES" "") (while (= alp (/ pi 3)) ( alp (/ pi 2))   (progn     (setq he    (* 3.4 r1)           fact  (* 0.091 he)           ptc   (list 0 (* fact -3))           choix 1     )   ) )  (setq plim1 (list (* he -0.75) (* he -1)) ;POINT LIMITE INFERIEUR GAUCHE                 plim2 (list (* he 0.75) (* he 1))   ;POINT LIMITE SUPERIEUR DROIT           ;----------------------------------------------------------------------------------; POUR LA DEFINITION DES POINTS PT1 A PT9,CONSULTER LE DOCUMENT...                 ;----------------------------------------------------------------------------------       pt1   (list (* r2 (sin alp)) (- (* r2 (cos alp)) (cadr ptc)))       pt2   (list (* r1 (sin alp)) (- (* r1 (cos alp)) (cadr ptc)))       pt3   (list (* r1 (sin (* alp -1))) (- (* r1 (cos alp)) (cadr ptc)))       pt4   (list (* r2 (sin (* alp -1))) (- (* r2 (cos alp)) (cadr ptc)))       pt5   (list 0 (- r1 (cadr ptc)))       pt6   (list 0 (- r2 (cadr ptc)))       pt7   (list (* r1 (sin (/ alp 1.5)))                   (- (* r1 (cos (/ alp 1.5))) (cadr ptc))             )       pt8   (list (* r2 (sin (* alp 0.))                   (- (* r2 (cos (* alp 0.)) (cadr ptc))             )       pt9   (list (* r1 (sin (/ alp -4)))                   (- (* r1 (cos (/ alp -4))) (cadr ptc))             ) );----------------------------------------------------------------------------------; COMMANDES DE DESSIN...                                                           ;---------------------------------------------------------------------------------- (command "LIMITS" plim1 plim2) (command "ZOOM" "ALL") (command "LINE" pt1 pt2 "") (command "LINE" pt4 pt3 "") (command "ARC" pt2 pt5 pt3) (command "ARC" pt1 pt6 pt4) (command "_PEDIT" (entlast) "Y" "_J" (ssget "_ALL") "" "") (command "_.area" "_o" (entlast))        (setq segarea (getvar "area")       conarea (* segarea nseg) ) (command "_TEXT" "_J" "_TC" (list 0 (- (cadr pt6) (* fact 0.75))) 0.5 0 (strcat " Seg: " (rtos segarea 2 2) " sq. inches" "")) (command "_TEXT" "_J" "_TC" (list 0 (- (cadr pt6) (* fact 0.75) 1)) 0.5 0 (strcat "Cone: " (rtos conarea 2 2) " sq. inches" "")) ;(setvar "DIMTIX" 0)              ;PLACE LES DIM A L'INTERIEUR                      ;(setvar "DIMSCALE" (* 1.2 fact)) ;AJUSTE LA DIMENSION DES COTES                    ;(setvar "LTSCALE" (* 0.8 fact))  ;AJUSTE LE FACTEUR D`ECHELLE DES LIGNES           ;(setvar "LUNITS" 5)              ;CHOIX DU SYSTEME D`UNITE FRACTIONNAIRE           ;(command "LINETYPE" "S" "CENTER" "") ;(command "LINE" ;         (list 0 (+ (cadr pt5) (* fact 0.75))) ;         (list 0 (- (cadr pt6) (* fact 0.75))) ;         ""  ;(command "LINETYPE" "S" "CONTINUOUS" "") ;(if (= choix 0) ;  (progn ;         (setvar "DIMSE2" 1)     ;ENLEVE LA DEUXIEME LIGNE D`EXTENSUON             ;         (command "DIM" "HORI" pt2 pt5 (list 0 (+ (cadr pt5) (* 0.5 fact))) "") ;         (setvar "DIMSE2" 0)     ;REMET LA DEUXIEME LIGNE D`EXTENSION             ;         (command "HORI" pt1 pt2 (list 0 (- (cadr pt1) (* 0.5 fact))) "")          ;(command "HORI"          ;         pt2          ;         (list (* (car pt2) -1) (cadr pt2))          ;         (list 0 (+ (cadr pt5) (* 1 fact)))          ;         ""                    ;(command "VERT" pt2 pt1 (list (+ (car pt2) (* 0.75 fact)) 0) "")          ;(command "VERT" pt1 pt5 (list (+ (car pt2) (* 1.75 fact)) 0) "")          ;(command "RADIUS"  "_NEAREST" pt7 "" (list (car pt7) (- (cadr pt7) (* 1.5 fact))))          ;(command "RADIUS"  "_NEAREST" pt8 "" (list (car pt8) (- (cadr pt8) (* 1.0 fact))))          ;(command "EXIT");   ) ;   (progn;     (command "DIM" "HORI" pt2 ptc (list 0 (- (cadr pt2) (* 0.5 fact))) "");     (command "VERT" pt2 ptc (list (+ r1 (* 0.5 fact)) 0) "");     (command "RADIUS" pt9 "" (* -2 fact))       ; COTATION GRAND RAYON                ;     (command "RADIUS" pt8 "" (* -0.8 fact))     ; COTATION PETIT RAYON                ;    (command "EXIT");   ) ; )  (command "REGENALL")) (defun idod (arg) (initget 1 "I i E e") (setq ans (strcase (getkword arg))));==================================================================================;LES 4 FONCTION SUIVANTES, CALCULENT LES POINTS POUR LE DESSIN DU CONE FORME       ;==================================================================================(defun pointex ();----------------------------------------------------------------------------------; - FONCTION UTILISEE LORSQUE LA COTATION EST EXTERIEUR (LES 2 DIAMETRES)          ; - POUR LA DEFINITION DES POINTS CONSULTER LE DOCUMENT...                         ;---------------------------------------------------------------------------------- (setq pt1 (list (+ dx gre) (+ dy (/ h -2)))       pt2 (list (+ dx pre) (+ dy (/ h 2)))       pt3 (list (+ dx (- pre (* ep (cos phi)))) (+ dy (- (/ h 2) (* ep (sin phi)))))       pt4 (list (+ dx (- gre (* ep (cos phi)))) (+ dy (- (/ h -2) (* ep (sin phi)))))       pt5 (list dx (+ dy (/ h 2)))       pt7 (list dx (+ dy (- (/ h 2) (* ep (sin phi)))))       pt8 (list dx (+ dy (- (/ h -2) (* ep (sin phi))))) ))(defun pointin ();----------------------------------------------------------------------------------; - FONCTION UTILISEE LORSQUE LA COTATION EST INTERIEUR (LES 2 DIAMETRES)          ; - POUR LA DEFINITION DES POINTS CONSULTER LE DOCUMENT...                         ;---------------------------------------------------------------------------------- (setq pt1 (list (+ dx gre) (+ dy (/ h -2)))       pt2 (list (+ dx pre) (+ dy (/ h 2)))       pt3 (list (+ dx pre (* ep (cos phi))) (+ dy (/ h 2) (* ep (sin phi))))       pt4 (list (+ dx gre (* ep (cos phi))) (+ dy (/ h -2) (* ep (sin phi))))       pt5 (list dx (+ dy (/ h 2)))       pt7 (list dx (+ dy (/ h 2) (* ep (sin phi))))       pt8 (list dx (+ dy (/ h -2))) ))(defun pointinpexg ();----------------------------------------------------------------------------------; - FONCTION UTILISEE LORSQUE LA COTATION EST EXTERIEURE GRAND DIA.                ;   ET INTERIEURE PETIT DIA.                                                       ; - POUR LA DEFINITION DES POINTS CONSULTER LE DOCUMENT...                         ;---------------------------------------------------------------------------------- (setq pt1 (list (+ dx gre) (+ dy (/ h -2)))       pt2 (list (+ dx pre) (+ dy (- (/ h 2) (* (sin phi) ep))))       pt3 (list (+ dx pre (* ep (cos phi))) (+ dy (/ h 2)))       pt4 (list (+ dx (- gre (* ep (cos phi)))) (+ dy (- (/ h -2) (* ep (sin phi)))))       pt5 (list dx (+ dy (- (/ h 2) (* ep (sin phi)))))       pt7 (list dx (+ dy (/ h 2)))       pt8 (list dx (+ dy (- (/ h -2) (* ep (sin phi))))) ))(defun pointexping ();----------------------------------------------------------------------------------; - FONCTION UTILISEE LORSQUE LA COTATION EST EXTERIEUR PETIT DIA.                 ;   ET INTERIEUR GRAND DIA.                                                        ; - POUR LA DEFINITION DES POINTS CONSULTER LE DOCUMENT...                         ;---------------------------------------------------------------------------------- (setq pt1 (list (+ dx gre) (+ dy (/ h -2)))       pt2 (list (+ dx pre) (+ dy (* ep (sin phi)) (/ h 2)))       pt3 (list (+ dx pre (- (* ep (cos phi)))) (+ dy (/ h 2)))       pt4 (list (+ dx gre (* ep (cos phi))) (+ dy (/ h -2) (* ep (sin phi))))       pt5 (list dx (+ dy (* ep (sin phi) (/ h 2))))       pt7 (list dx (+ dy (/ h 2)))       pt8 (list dx (+ dy (/ h -2))) ))

ymg3 · 发表于 2022-7-6 01:02:02

ROBP,

Since ultimately what you are after is the weight.  Wouldn't it be better to compute the volume of the trucated cone
with formula:  V = 1/3 pi (r1r1 + r1r2 + r2r2) h

You do it with Outside radius then with Inside Radius.
      Vor -Vir = Volume of trucated cone.

ymg

[编程交流] 将现有lisp修改为

发表回复

精选推荐