乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 96|回复： 19

[编程交流] 创建xy、xyz道路纵断面li

[复制链接]
Salama

7

主题

23

帖子

16

银币

初来乍到

Rank: 1

铜币
35
发表于 2022-7-5 23:31:55 | 显示全部楼层 |阅读模式
有些人说，它在Autocad 2014环境中不起作用，如果有任何帮助，我们都会感激。
003157g6w06l1wpcgphcl1.jpg
003201d867w9pk76fln7m9.jpg
003204jqqm5jc7zfmt5f8z.png
回复

使用道具 举报

Salama

7

主题

23

帖子

16

银币

初来乍到

Rank: 1

铜币
35
发表于 2022-7-5 23:38:05 | 显示全部楼层
lisp代码，第1部分：
 
 
  1.    ;;;(IN THE NAME OF ALLAH THE BENIFICIENT THE MERCIFULL);;;
  2.      ;;;      ( ALLAH'S PEACE BE UPON PROPHET MUHAMMAD)     ;;;
  7.      ;;; This program is created by AAMER HAMEED AWAN       ;;;
  8.      ;;;       (BIN ATEK EST. MEDINA MUNAVRA    K.S.A)             ;;;
  13.      ;;; Purpose of this program is to draw the PROFILE OF ROAD                ;;;
  14.      ;;; Entering only the Station and Distance eg.[25,601.253]                        ;;;
  15.      ;;; The by default vertical scale is assumed 10 time the Horizontal scale ;;;
  16.      ;;; But any how the user can change it from a line bellow.                           ;;;
  25. ;MODIFIED ON 04-09-2K6
  26. ************************************************************************
  27. ************************************************************************
  29. ;;; PO STARTS ;;;
  30. ;;; PO STARTS ;;;
  31. ;;; PO STARTS ;;;
  32. ;;; PO STARTS ;;;
  34. (defun c:po()
  35. (setvar "insunits" 4)
  36. (setvar "aunits" 0)
  37. (setvar "angbase" 0)
  38. (setvar "angdir" 0)
  39. (setvar "lunits"  2)
  40. (setvar "dimzin" 1)
  41. (command "lweight" "BYLAYER")
  42. (command "color" "bylayer")
  43. (command "layer" "N" "N.G" "c" "7" "N.G" "")
  44. (command "layer" "N" "green82" "c" "82" "green82" "")
  45. (command "Layer" "N" "cyan2k6" "c" "4" "cyan2k6" "")
  46. (command "layer" "N" "red2k6" "c" "1" "red2k6" "")
  47. (setq oldsnap (getvar "osmode"))
  48. (setq newsnap 0)
  49. (setvar "osmode" newsnap)
  50. (setq verscale 10)   ;;;;;;*******;;;;;;user can change the vertical scale from this line;;;********;;;;;
  52. (setq txtht 6.4)
  54. (if (or (< verscale 10)
  55. (= verscale 10)
  56. )
  57. (setq stxtht (* 0.60 verscale))
  58. (setq stxtht 6)
  59. )
  60. (setq ra 90)  
  61. (terpri)
  64. ;************************************************************
  65. (setq datreal (getpoint "\nPlease Enter The Datum:"))
  66. ;************************************************************
  70. (setq datscaled  (list (car datreal)(* verscale (cadr datreal)) ))
  71. (setq opt nil)
  72.  (while  (and(/= opt "Yes")(/= opt "No"))
  73.   
  74.   (SETQ dopt "Yes")
  75.   (initget "Yes No Options")
  76.        (setq option (getkword (acet-str-format "\nAttach Start-up Template [Yes/No/Options] <%1>: " Dopt))
  77.              option (if option option Dopt) )
  78. (IF (= option "Options")
  79.      (pro)
  80. )
  81.      
  82. (setq opt option)
  84.    )
  92.  (if
  93.     (= option "Yes")
  94.              
  95.    
  96.  (PROGN
  97.    (TOP-MIDDLE-LOWER-SQUARE-BOXES2K6)
  98.    (TOP-MIDDLE-LOWER-CURVED-BOXES2K6)
  99.    (LEFT-HEADINGS-2K6)
  100. );; END PROGN
  101.    );;end iff;;
  102. (COMMAND "REGEN")
  107. ;*************************************************************
  108. (setq ptleft1 datscaled)
  109. (setq ptleft2 (list (car datscaled)(- (cadr datscaled) 60) ))
  110. (setq ptleft3 (list (car datscaled) (- (cadr datscaled) 62 )  ))
  111. (setq ptleft4 (list (car datscaled) (- (cadr datscaled) 122)  ))
  112. (setq ptleft5 (list (car datscaled) (- (cadr datscaled) 124)   ))
  113. (setq ptleft6 (list (car datscaled) (- (cadr datscaled) 184)  ))
  114. (setq suspender (list (car pt2)(cadr ptleft6) ))
  115. ;*************************************************************
  119. ;WRITING DOWN THE TEXT ON THE VERTICAL SCALE OF TEMPLATE
  121. (setq dattextp1 (list(- (car datscaled) 93.2857) (+ (cadr datscaled) 2.5629) ))
  122. (setq text1 (rtos (cadr datreal) 2 2))
  125. (setq dattextp2 (list(- (car datscaled) 44.8037) (+ (cadr datscaled) (* verscale 5))) )
  126. (setq dattextp3 (list (car dattextp2)(+ (cadr dattextp2) (* verscale 5)) ))
  127. (setq dattextp4 (list (car dattextp3)(+ (cadr dattextp3) (* verscale 5)) ))
  128. (setq dattextp5 (list (car dattextp4) (+ (cadr dattextp4) (* verscale 5)) ))
  129. (setq dattextp6 (list (car dattextp5) (+ (cadr dattextp5) (* verscale 5)) ))
  130. (setq dattextp7 (list (car dattextp6) (+ (cadr dattextp6) (* verscale 5)) ))
  131. (setq dattext1 (strcat "Datum =" text1) )
  132. (setq dattext2 (rtos (+(cadr datreal) 5) 2 2) )
  133. (setq dattext3 (rtos (+(cadr datreal) 10) 2 2) )
  134. (setq dattext4 (rtos (+ (cadr datreal) 15) 2 2))
  135. (setq dattext5 (rtos (+ (cadr datreal) 20) 2 2 ))
  136. (setq dattext6 (rtos (+ (cadr datreal) 25) 2 2))
  137. (setq dattext7 (rtos (+ (cadr datreal) 30) 2 2 ))
回复

使用道具 举报

Salama

7

主题

23

帖子

16

银币

初来乍到

Rank: 1

铜币
35
发表于 2022-7-5 23:38:31 | 显示全部楼层
lisp代码第2部分：
 
  1.  (IF    
  2.   (= option "Yes")
  3.         
  4.  (progn
  5.    (SCALE-VER)
  6. (COMMAND "ZOOM" "E")
  7. (COMMAND "REGEN")
  8. (command "layer" "S" "red2k6" "")
  9. (command "style" "rcp2k6" "romanc.shx" "0" "1" "0" "n" "n" "n")
  10. (command "text" dattextp1 stxtht "0.00" dattext1)
  11. (command "text" dattextp2 stxtht "0.00" dattext2)
  12. (command "text" dattextp3 stxtht "0.00" dattext3)
  13. (command "text" dattextp4 stxtht "0.00" dattext4)
  14. (command "text" dattextp5 stxtht "0.00" dattext5)
  15. (command "text" dattextp6 stxtht "0.00" dattext6)
  16. (command "text" dattextp7 stxtht "0.00" dattext7)
  17. );;end progn;
  18.  );; end if;;
  19. (terpri)
  23. ;*****************************************************************
  24. (setq pt1 (getpoint "N.G.L. Line Starts From/Paste the N.G.L.s:"))
  25. ;*****************************************************************
  28. ;*****************************************************************
  29. (setq pt1scaled (list (car pt1 )(* (cadr pt1) verscale)))
  30. ;*****************************************************************
  31. ;WRITING THE DISTANCE AT FIRST POINT ONLY IN 0+000.00 FORMATE
  34. (setq ngldistextp1 (list (+ (car pt1scaled) 8.4) (+ (cadr ptleft6 ) 4.))
  35. (command "layer" "s" "N.G" "")
  36. (command "style" "rsp2k6" "romans.shx" "0" "1" "0" "n" "n" "n")
  37. (command "text" ngldistextp1 txtht ra (km+mmm.mm (car pt1)))
  40. ************************************************************
  41. ;WRITING THE N.G.L. AT FIRST POINT ONLY
  42. (setq ngltextp (list (+ (car pt1scaled) 8.4) (+ (cadr ptleft4 ) 4. ))
  43. (setq ngltext (rtos (cadr pt1) 2 3 ))
  44. (command "layer" "s" "N.G" "")
  45. (command "style" "rsp2k6" "romans.shx" "0" "1" "0" "n" "n" "n")
  46. (command "text" ngltextp txtht ra ngltext)
  49. ;************************************************************
  50. (PRINC (CAR PT1))(PRINC ",")(PRINC (CADR PT1))
  51. ;************************************************************
  54. ;;; -WHILE-   STARTES;;;
  55. ;;;- WHILE-   STARTES;;;
  56. ;;; -WHILE-   STARTES;;;
  57. ;;; -WHILE-   STARTES;;;
  58.  
  59. (terpri)
  62. (while
  63. (setq pt2 (getpoint "\nN.G.L. Line Goes To <close>:"))
  64.  
  65. (setq pt2scaled (list (car pt2)(* (cadr pt2 ) verscale) ) )
  70. ;*************************************************************
  71. ;WRITING THE DISTANCE TEXT IN 0+00.00 FORMATE
  73. (setq ngldistextp (list (+ (car pt2scaled) 8.4) (+ (cadr ptleft6 ) 4. ))
  74. (command "layer" "s" "N.G" "")
  75. (command "lweight" "bylayer")
  76. (command "style" "rsp2k6" "romanc.shx" "0" "1" "0" "n" "n" "n")
  77. (command "text" ngldistextp txtht ra (km+mmm.mm (car pt2)))
  79. ;*************************************************************
  80. ;DRAWING THE LINE OF NGL
  81. (setq ptleft1 datscaled)
  82. (setq ptleft2 (list (car datscaled)(- (cadr datscaled) 60) ))
  83. (setq ptleft3 (list (car datscaled) (- (cadr datscaled) 62 )  ))
  84. (setq ptleft4 (list (car datscaled) (- (cadr datscaled) 122)  ))
  85. (setq ptleft5 (list (car datscaled) (- (cadr datscaled) 124)   ))
  86. (setq ptleft6 (list (car datscaled) (- (cadr datscaled) 184)  ))
  87. (setq suspender (list (car pt2)(cadr ptleft6) ))
  89. (command "layer" "s" "N.G" "")
  90. (command "lweight" 0.40)
  92. (command "line" pt1scaled pt2scaled "")
  94. ;************************************************************
  95. ;DRAWING THE VERTICAL LINES
  96. (setq ngltextp (list (+ (car pt2scaled) 8.4) (+ (cadr ptleft4 ) 4. ))
  97. (setq ngltext (rtos (cadr pt2) 2 3 ))
  98. (command "layer" "s" "N.G" "")
  99. (command "style" "rsp2k6" "romans.shx" "0" "1" "0" "n" "n" "n")
  100. (command "lweight" "bylayer")
  101. (command "text" ngltextp  txtht ra ngltext)
  104. (command "layer" "s" "cyan2k6" "")
  105. (command "lweight" "bylayer")
  106. (command  "linetype" "s" "continuous" "")
  107. (command "line" pt2scaled suspender "")
  110. ;****************************************************************
  111. ;REPEATING THE COMMAND LINE
  112. (setq pt1scaled pt2scaled)
  113. (command "regen")
  114. (PRINC (CAR PT2))(PRINC ",")(PRINC (CADR PT2))
  116. )
  117.  ;;; -WHILE-  CLOSED;;;
  118.  ;;; -WHILE - CLOSED;;;
  119.  ;;; -WHILE-  CLOSED;;;
  120.  ;;; -WHILE-  CLOSED;;;
  121.  
  122. ;**************************************************************
  125. ;**************************************************************
  126. ;SECOND PHASE FOR CLOSING THE BOX OF PROFILE
  128. (command "osnap" "off")
  129. (command "zoom" "e")
  130. (setq attachment suspender)
  131. (command "osnap" "off")
  133. (setq ptright1 (list (car attachment) (+ (cadr attachment) 184) ) )
  134. (setq ptright2 (list (car attachment) (+ (cadr attachment) 124 )) )
  135. (setq ptright3 (list (car attachment) (+ (cadr attachment) 122)) )
  136. (setq ptright4 (list (car attachment) (+ (cadr attachment) 62)) )
  137. (setq ptright5 (list (car attachment) (+ (cadr attachment) 60 )) )
  138. (setq ptright6 attachment) 
  141. ;;;; drawing the closing vertical  lines and arcs;;;
  142. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  145. (COMMAND "LAYER" "S" "green82" "")
  146. (command "lweight" 0.35)
  149. (setq attachment3 (list (+
  150.                            (car attachment)
  151.                            20
  152.                            )
  153.                          (cadr attachment)
  154.                          )
  155.      )
  159. (command "line" attachment attachment3 "")
  160. (command "line" attachment3 (list (car attachment3)
  161.                           (+
  162.                             (cadr attachment3)
  163.                             40
  164.                             )
  165.                           )
  166.  "")
  167. (command "arc" (list (car attachment3)
  168.              (+
  169.                (cadr attachment3)
  170.                40
  171.                )
  172.              )
  173.  "c"
  174.  (list (-
  175.          (car attachment3)
  176.          20
  177.          )
  178.        (+
  179.          (cadr attachment3)
  180.          40
  181.          )
  182.        )
  183.  ptright5
  184.  )
  186. (setq attachment2 (list (+
  187.                   (car ptright4)
  188.                   20
  189.                   )
  190.                 (cadr ptright4)
  191.                 )
  192.      )
  194. (command "line" ptright4 attachment2 "")
  195.                          
  196.                 
  197.         
  200. (command "line" attachment2 (list (car attachment2)
  201.                           (+
  202.                             (cadr attachment2)
  203.                             40
  204.                             )
  205.                           )
  206.  "")
  208. (command "arc" (list (car attachment2)
  209.              (+
  210.                (cadr attachment2)
  211.                40
  212.                )
  213.              )
  214.  "c"
  215.  (list (-
  216.          (car attachment2)
  217.          20
  218.          )
  219.        (+
  220.          (cadr attachment2)
  221.          40
  222.          )
  223.        )
  224.  ptright3
  225.  )
  227. (setq attachment1 (list (+
  228.                   (car ptright2)
  229.                   20
  230.                   )
  231.                 (cadr ptright2)
  232.                 )
  233.      )
  234. (command "line" ptright2 attachment1 "")
  236. (command "line" attachment1 (list (car attachment1)
  237.                           (+
  238.                             (cadr attachment1)
  239.                            40
  240.                             )
  241.                           )
  242.  "" )
  244. (command "arc" (list (car attachment1)
  245.              (+
  246.                (cadr attachment1)
  247.               40
  248.                )
  249.              )
  250.  "c"
  251.  (list
  252.    (car ptright2)
  253.    (+
  254.    (cadr attachment1)
  255.    40
  256.    )
  257.    )
  258.    ptright1
  259.    )             
  263. ;;drawing the closing horizontal lines;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  265. (setq datscaled  (list (car datreal)(* verscale (cadr datreal)) ))
  266. (setq ptleft1 datscaled)
  267. (setq ptleft2 (list (car datscaled)(- (cadr datscaled) 60) ))
  268. (setq ptleft3 (list (car datscaled) (- (cadr datscaled) 62 )  ))
  269. (setq ptleft4 (list (car datscaled) (- (cadr datscaled) 122)  ))
  270. (setq ptleft5 (list (car datscaled) (- (cadr datscaled) 124)   ))
  271. (setq ptleft6 (list (car datscaled) (- (cadr datscaled) 184)  ))
  272. (setq suspender (list (car pt2)(cadr ptleft6) ))
  275. (command "osnap" "off")
  276. (command "layer" "s" "green82" "")
  277. (command "lweight" 0.35)
  278. (command "linetype" "s" "continuous" "")
  281. (command "line" ptright1 ptleft1 "")
  282. (command "line" ptright2 ptleft2 "")
  283. (command "line" ptright3 ptleft3 "")
  284. (command "line" ptright4 ptleft4 "")
  285. (command "line" ptright5 ptleft5 "")
  286. (command "line" ptright6 ptleft6 "")
  288. ;;**********************************************************************
  289. ;;**********************************************************************
  291. ;;;removing the used settings and setting the defaults;;;;;;;;;;;;;;;;;
  295. (command "lweight" "bylayer")
  296. (command "layer" "s" "0" "")
  297. (command "color" "bylayer")
  298. (command  "linetype" "s" "continuous" "")
  300. (setvar "osmode" oldsnap)
  301. (command "zoom" "e")
  302. (command "regen")
  303. (princ "\n*** !Profile is Complete ***    ***Written By Aamer H. Awan***")
  304. (princ)
  305.  
  309. );;;;;;;;;;;;
  310. ;;;END PO;;;;
  311. ;;;END PO;;;;
  312. ;;;END PO;;;;
  313. ;;;END PO;;;;
  318. ************************************************************************************
  319. (defun SCALE-VER()
  320. (setq LeadLength (* verscale 1.)
  322. (setq startwidth 0)
  323. (setq endwidth (* verscale 1))
  324. (setq TOPpt (list (car datscaled)(+ (cadr datscaled)(* verscale 35.6))))
  325. (setq LeadDownPt (list (car TOPpt)(-(cadr TOPpt)LeadLength)))
  326. (setq smarkpt1(list (- (car datscaled)(* verscale 0.250))(+ (cadr datscaled)(* verscale 1))))
  327.  (setq smarkpt1b(list (+(car smarkpt1)(* verscale 0.500))(cadr smarkpt1)))
  328. (setq smarkpt2(list (- (car datscaled)(* verscale 0.250))(+ (cadr smarkpt1)(* verscale 1))))
  329.  (setq smarkpt2b(list (+(car smarkpt2)(* verscale 0.500))(cadr smarkpt2)))
  330. (setq smarkpt3(list (- (car datscaled)(* verscale 0.250))(+ (cadr smarkpt2)(* verscale 1))))
  331.  (setq smarkpt3b(list (+(car smarkpt3)(* verscale 0.500))(cadr smarkpt3)))
  332. (setq smarkpt4(list (- (car datscaled)(* verscale 0.250))(+ (cadr smarkpt3)(* verscale 1))))
  333.  (setq smarkpt4b(list (+(car smarkpt4)(* verscale 0.500))(cadr smarkpt4)))
  334. (setq smarkpt5(list (- (car datscaled)(* verscale 0.500))(+ (cadr smarkpt4)(* verscale 1))))
  335.  (setq smarkpt5b(list (+(car smarkpt5)(* verscale 1.000))(cadr smarkpt5)))
  336. (setq smarkpt6(list (- (car datscaled)(* verscale 0.250))(+ (cadr smarkpt5)(* verscale 1))))
  337.  (setq smarkpt6b(list (+(car smarkpt6)(* verscale 0.500))(cadr smarkpt6)))
  338. (setq smarkpt7(list (- (car datscaled)(* verscale 0.250))(+ (cadr smarkpt6)(* verscale 1))))
  339.  (setq smarkpt7b(list (+(car smarkpt7)(* verscale 0.500))(cadr smarkpt7)))
  340. (setq smarkpt8(list (- (car datscaled)(* verscale 0.250))(+ (cadr smarkpt7)(* verscale 1))))
  341.  (setq smarkpt8b(list (+(car smarkpt8)(* verscale 0.500))(cadr smarkpt8)))
  342. (setq smarkpt9(list (- (car datscaled)(* verscale 0.250))(+ (cadr smarkpt8)(* verscale 1))))
  343.  (setq smarkpt9b(list (+(car smarkpt9)(* verscale 0.500))(cadr smarkpt9)))
  344. (setq smarkpt10(list (- (car datscaled)(* verscale 0.500))(+ (cadr smarkpt9)(* verscale 1))))
  345.  (setq smarkpt10b(list (+(car smarkpt10)(* verscale 1.000))(cadr smarkpt10)))
  346. (setq smarkpt11(list (- (car datscaled)(* verscale 0.250))(+ (cadr smarkpt10)(* verscale 1))))
  347.  (setq smarkpt11b(list (+(car smarkpt11)(* verscale 0.500))(cadr smarkpt11)))
  348. (setq smarkpt12(list (- (car datscaled)(* verscale 0.250))(+ (cadr smarkpt11)(* verscale 1))))
  349.  (setq smarkpt12b(list (+(car smarkpt12)(* verscale 0.500))(cadr smarkpt12)))
  350. (setq smarkpt13(list (- (car datscaled)(* verscale 0.250))(+ (cadr smarkpt12)(* verscale 1))))
  351.  (setq smarkpt13b(list (+(car smarkpt13)(* verscale 0.500))(cadr smarkpt13)))
  352. (setq smarkpt14(list (- (car datscaled)(* verscale 0.250))(+ (cadr smarkpt13)(* verscale 1))))
  353.  (setq smarkpt14b(list (+(car smarkpt14)(* verscale 0.500))(cadr smarkpt14)))
  354. (setq smarkpt15(list (- (car datscaled)(* verscale 0.500))(+ (cadr smarkpt14)(* verscale 1))))
  355.  (setq smarkpt15b(list (+(car smarkpt15)(* verscale 1.000))(cadr smarkpt15)))
  356. (setq smarkpt16(list (- (car datscaled)(* verscale 0.250))(+ (cadr smarkpt15)(* verscale 1))))
  357.  (setq smarkpt16b(list (+(car smarkpt16)(* verscale 0.500))(cadr smarkpt16)))
  358. (setq smarkpt17(list (- (car datscaled)(* verscale 0.250))(+ (cadr smarkpt16)(* verscale 1))))
  359.  (setq smarkpt17b(list (+(car smarkpt17)(* verscale 0.500))(cadr smarkpt17)))
  360. (setq smarkpt18(list (- (car datscaled)(* verscale 0.250))(+ (cadr smarkpt17)(* verscale 1))))
  361.  (setq smarkpt18b(list (+(car smarkpt18)(* verscale 0.500))(cadr smarkpt18)))
  362. (setq smarkpt19(list (- (car datscaled)(* verscale 0.250))(+ (cadr smarkpt18)(* verscale 1))))
  363.  (setq smarkpt19b(list (+(car smarkpt19)(* verscale 0.500))(cadr smarkpt19)))
  364. (setq smarkpt20(list (- (car datscaled)(* verscale 0.500))(+ (cadr smarkpt19)(* verscale 1))))
  365.  (setq smarkpt20b(list (+(car smarkpt20)(* verscale 1.000))(cadr smarkpt20)))
  366. (setq smarkpt21(list (- (car datscaled)(* verscale 0.250))(+ (cadr smarkpt20)(* verscale 1))))
  367.  (setq smarkpt21b(list (+(car smarkpt21)(* verscale 0.500))(cadr smarkpt21)))
  368. (setq smarkpt22(list (- (car datscaled)(* verscale 0.250))(+ (cadr smarkpt21)(* verscale 1))))
  369.  (setq smarkpt22b(list (+(car smarkpt22)(* verscale 0.500))(cadr smarkpt22)))
  370. (setq smarkpt23(list (- (car datscaled)(* verscale 0.250))(+ (cadr smarkpt22)(* verscale 1))))
  371.  (setq smarkpt23b(list (+(car smarkpt23)(* verscale 0.500))(cadr smarkpt23)))
  372. (setq smarkpt24(list (- (car datscaled)(* verscale 0.250))(+ (cadr smarkpt23)(* verscale 1))))
  373.  (setq smarkpt24b(list (+(car smarkpt24)(* verscale 0.500))(cadr smarkpt24)))
  374. (setq smarkpt25(list (- (car datscaled)(* verscale 0.500))(+ (cadr smarkpt24)(* verscale 1))))
  375.  (setq smarkpt25b(list (+(car smarkpt25)(* verscale 1.000))(cadr smarkpt25)))
  376. (setq smarkpt26(list (- (car datscaled)(* verscale 0.250))(+ (cadr smarkpt25)(* verscale 1))))
  377.  (setq smarkpt26b(list (+(car smarkpt26)(* verscale 0.500))(cadr smarkpt26)))
  378. (setq smarkpt27(list (- (car datscaled)(* verscale 0.250))(+ (cadr smarkpt26)(* verscale 1))))
  379.  (setq smarkpt27b(list (+(car smarkpt27)(* verscale 0.500))(cadr smarkpt27)))
  380. (setq smarkpt28(list (- (car datscaled)(* verscale 0.250))(+ (cadr smarkpt27)(* verscale 1))))
  381.  (setq smarkpt28b(list (+(car smarkpt28)(* verscale 0.500))(cadr smarkpt28)))
  382. (setq smarkpt29(list (- (car datscaled)(* verscale 0.250))(+ (cadr smarkpt28)(* verscale 1))))
  383.  (setq smarkpt29b(list (+(car smarkpt29)(* verscale 0.500))(cadr smarkpt29)))
  384. (setq smarkpt30(list (- (car datscaled)(* verscale 0.500))(+ (cadr smarkpt29)(* verscale 1))))
  385.  (setq smarkpt23b(list (+(car smarkpt23)(* verscale 0.500))(cadr smarkpt23)))
回复

使用道具 举报

Salama

7

主题

23

帖子

16

银币

初来乍到

Rank: 1

铜币
35
发表于 2022-7-5 23:44:19 | 显示全部楼层
Lisp代码第3部分：
 
  1. (command "layer" "s" "N.G" "")
  2.          (COMMAND "PLINE" TOPpt "W" startwidth endwidth LeadDownPt "")
  3.          (COMMAND "LINE" datscaled TOPpt "")
  4.        (command "layer" "s" "cyan2k6" "")
  5.          (COMMAND "LINE" smarkpt1 smarkpt1b "")
  6.          (COMMAND "LINE" smarkpt2 smarkpt2b "")
  7.          (COMMAND "LINE" smarkpt3 smarkpt3b "")
  8. (COMMAND "LINE" smarkpt4 smarkpt4b "")
  9. (COMMAND "LINE" smarkpt5 smarkpt5b "")
  10. (COMMAND "LINE" smarkpt6 smarkpt6b "")
  11. (COMMAND "LINE" smarkpt7 smarkpt7b "")
  12. (COMMAND "LINE" smarkpt8 smarkpt8b "")
  13. (COMMAND "LINE" smarkpt9 smarkpt9b "")
  14. (COMMAND "LINE" smarkpt10 smarkpt10b "")
  15. (COMMAND "LINE" smarkpt11 smarkpt11b "")
  16. (COMMAND "LINE" smarkpt12 smarkpt12b "")
  17. (COMMAND "LINE" smarkpt13 smarkpt13b "")
  18. (COMMAND "LINE" smarkpt14 smarkpt14b "")
  19. (COMMAND "LINE" smarkpt15 smarkpt15b "")
  20. (COMMAND "LINE" smarkpt16 smarkpt16b "")
  21. (COMMAND "LINE" smarkpt17 smarkpt17b "")
  22. (COMMAND "LINE" smarkpt18 smarkpt18b "")
  23. (COMMAND "LINE" smarkpt19 smarkpt19b "")
  24. (COMMAND "LINE" smarkpt20 smarkpt20b "")
  25. (COMMAND "LINE" smarkpt21 smarkpt21b "")
  26. (COMMAND "LINE" smarkpt22 smarkpt22b "")
  27. (COMMAND "LINE" smarkpt23 smarkpt23b "")
  28. (COMMAND "LINE" smarkpt24 smarkpt24b "")
  29. (COMMAND "LINE" smarkpt25 smarkpt25b "")
  30. (COMMAND "LINE" smarkpt26 smarkpt26b "")
  31. (COMMAND "LINE" smarkpt27 smarkpt27b "")
  32. (COMMAND "LINE" smarkpt28 smarkpt28b "")
  33. (COMMAND "LINE" smarkpt29 smarkpt29b "")
  34. (COMMAND "LINE" smarkpt30 smarkpt30b "")
  35.   
  37. );; END OF DEFUN SCALE
  38. ********************************************************************
  39. ********************************************************************
  40. (DEFUN LEFT-HEADINGS-2K6()
  41.  (setq deshdpt (list (- (car datscaled)93)(- (cadr datscaled) 25)))
  42.  (setq elevhdpt1 (list (- (car datscaled)72.50)(- (cadr datscaled) 42)))
  43.   (setq grdhdpt (list (- (car datscaled)93)(- (cadr datscaled) 87)))
  44.  (setq elevhdpt2 (list (- (car datscaled)72.50)(- (cadr datscaled) 104)))
  45.   (setq stahdpt (list (- (car datscaled)87.5)(- (cadr datscaled) 160)))
  46.  (command "layer" "s" "N.G" "")
  47.  (command "style" "rcp2k6" "romanc.shx" "0" "1" "0" "n" "n" "n")
  48.  (command "text" deshdpt "8" "0" "DESIGN")
  49.  (command "text" elevhdpt1 "8" "0" "ELEVATION")
  50.  (command "text" grdhdpt "8" "0" "GROUND")
  51.  (command "text" elevhdpt2 "8" "0" "ELEVATION")
  52.  (command "text" stahdpt "12" "0" "STATION")
  53.  
  54.  )
  56. (DEFUN TOP-MIDDLE-LOWER-SQUARE-BOXES2K6()
  57. (setq ptleft1 datscaled)
  58. (setq ptleft1L (list (- (car datscaled) 100)(cadr datscaled)))
  59. (setq ptleft2 (list (car datscaled)(- (cadr datscaled) 60) ))
  60. (setq ptleft2L (list (- (car datscaled) 100)(cadr ptleft2)))
  61. (setq ptleft3 (list (car datscaled) (- (cadr datscaled) 62 )  ))
  62. (setq ptleft3L (list (- (car datscaled) 100)(cadr ptleft3)))
  63. (setq ptleft4 (list (car datscaled) (- (cadr datscaled) 122)  ))
  64.  (setq ptleft4L (list (- (car datscaled) 100)(cadr ptleft4)))
  65. (setq ptleft5 (list (car datscaled) (- (cadr datscaled) 124)   ))
  66.  (setq ptleft5L (list (- (car datscaled) 100)(cadr ptleft5)))
  67. (setq ptleft6 (list (car datscaled) (- (cadr datscaled) 184)  ))
  68.  (setq ptleft6L (list (- (car datscaled) 100)(cadr ptleft6)))
  72.  (COMMAND "LAYER" "S" "green82" "")
  73.  (command "lweight" 0.35)
  74.  (command "line" ptleft1 ptleft1L ptleft2L ptleft2 ptleft1 "")
  75.  (command "line" ptleft3 ptleft3L ptleft4L ptleft4 ptleft3 "")
  76.  (command "line" ptleft5 ptleft5L ptleft5L ptleft6L ptleft6 ptleft5 "")
  77.   (command "lweight" "BYLAYER")
  78.  
  79.  
  80. );; end of defun TEMPLATE-LEFT
  81. ************************************************************************
  82. ************************************************************************
  83. (DEFUN TOP-MIDDLE-LOWER-CURVED-BOXES2K6()
  84.  (setq ULD1 (list (- (car datscaled) 98)(- (cadr datscaled) 7)))
  85.  (setq ULU1 (list (- (car datscaled) 93)(- (cadr datscaled) 2)))
  86.  (setq URU1 (list (- (car datscaled) 7 )(- (cadr datscaled) 2)))
  87.  (setq URD1 (list (- (car datscaled) 2 )(- (cadr datscaled) 7)))
  88.  (setq LRU1 (list (- (car ptleft2 ) 2)(+ (cadr ptleft2) 7)))
  89.  (setq LRD1 (list (- (car ptleft2 ) 7)(+ (cadr ptleft2) 2)))
  90.  (setq LLD1 (list (- (car ptleft2 ) 93)(+(cadr ptleft2) 2)))
  91.  (setq LLU1 (list (- (car ptleft2 ) 98)(+ (cadr ptleft2) 7)))
  93.          (command "lweight" 0.35)
  94.          (COMMAND "LAYER" "S" "green82" "")
  95.         (command "lweight" 0.35)
  96. (command "arc" ULU1 "E" ULD1 "R" "5")
  97.          (command "line" ULU1 URU1 "")
  98.          (command "arc" URD1 "E" URU1 "R" "5")
  99.          (command "line" URD1 LRU1 "")
  100.           (command "arc" LRD1 "E" LRU1 "R" "5")
  101.          (command "line" LRD1 LLD1 "")
  102.          (command "arc" LLU1 "E" LLD1 "R" "5")
  103.        (command "line" LLU1 ULD1 "")
  104.  
  105.  
  107.          
  108.  (setq ULD2 (list (- (car ptleft3) 98)(- (cadr ptleft3) 7)))
  109.  (setq ULU2 (list (- (car ptleft3) 93)(- (cadr ptleft3) 2)))
  110.  (setq URU2 (list (- (car ptleft3) 7 )(- (cadr ptleft3) 2)))
  111.  (setq URD2 (list (- (car ptleft3) 2 )(- (cadr ptleft3) 7)))
  112.  (setq LRU2 (list (- (car ptleft4 ) 2)(+ (cadr ptleft4) 7)))
  113.  (setq LRD2 (list (- (car ptleft4 ) 7)(+ (cadr ptleft4) 2)))
  114.  (setq LLD2 (list (- (car ptleft4 ) 93)(+(cadr ptleft4) 2)))
  115.  (setq LLU2 (list (- (car ptleft4 ) 98)(+ (cadr ptleft4) 7)))
  117.          (COMMAND "LAYER" "S" "green82" "")
  118.         (command "lweight" 0.35)
  119. (command "arc" ULU2 "E" ULD2 "R" "5")
  120.          (command "line" ULU2 URU2 "")
  121.          (command "arc" URD2 "E" URU2 "R" "5")
  122.          (command "line" URD2 LRU2 "")
  123.           (command "arc" LRD2 "E" LRU2 "R" "5")
  124.          (command "line" LRD2 LLD2 "")
  125.          (command "arc" LLU2 "E" LLD2 "R" "5")
  126.        (command "line" LLU2 ULD2 "")
  127.  
  129.  
  131.  (setq ULD3 (list (- (car ptleft5) 98)(- (cadr ptleft5) 7)))
  132.  (setq ULU3 (list (- (car ptleft5) 93)(- (cadr ptleft5) 2)))
  133.  (setq URU3 (list (- (car ptleft5) 7 )(- (cadr ptleft5) 2)))
  134.  (setq URD3 (list (- (car ptleft5) 2 )(- (cadr ptleft5) 7)))
  135.  (setq LRU3 (list (- (car ptleft6 ) 2)(+ (cadr ptleft6) 7)))
  136.  (setq LRD3 (list (- (car ptleft6 ) 7)(+ (cadr ptleft6) 2)))
  137.  (setq LLD3 (list (- (car ptleft6 ) 93)(+(cadr ptleft6) 2)))
  138.  (setq LLU3 (list (- (car ptleft6 ) 98)(+ (cadr ptleft6) 7)))
  141.          (COMMAND "LAYER" "S" "green82" "")
  142.         (command "lweight" 0.35)
  143. (command "arc" ULU3 "E" ULD3 "R" "5")
  144.          (command "line" ULU3 URU3 "")
  145.          (command "arc" URD3 "E" URU3 "R" "5")
  146.          (command "line" URD3 LRU3 "")
  147.           (command "arc" LRD3 "E" LRU3 "R" "5")
  148.          (command "line" LRD3 LLD3 "")
  149.          (command "arc" LLU3 "E" LLD3 "R" "5")
  150.        (command "line" LLU3 ULD3 "")
  151.   (command "lweight" "BYLAYER")
  153.  );;; END OF DEFUN TOP-MIDDLE-LOWER-CURVED-BOXES2K6
  154. ************************************************************************
  155. ************************************************************************
  156. ;;DEFINING THE KM+MMM.MM FOR WRITING DISTANCE IN 0+000.00 FORMATE
  159. (defun km+mmm.mm ( abc / km1 mr mr1 kmr km m )
  162.  (setq km1(/ abc 1000.0000))
  163.  (setq mr(rem abc 1000.0000))
  164.  (setq mr1(/ mr 1000.0000))
  165.  (setq kmr(- km1 mr1))
  166.  (setq km (rtos kmr 2 0))
  167.  (setq m (rtos mr 2 2))
  168.  
  169.    
  170.  (if
  171.  
  172.     (and
  173.    (and
  174.      (> mr 0)
  175.      (< mr 10)
  176.    )
  177.    (or
  178.      (> kmr 0)
  179.      (= kmr 0)
  180.      )
  181.    )
  182.  
  184.    (setq km+m (strcat km "+00" m))
  186. (progn
  188.  (if
  189.    (and
  190.    (= mr 0)
  191.    (or
  192.      (= kmr 0)
  193.      (> kmr 0)
  194.      )
  195.    )
  196.    (setq km+m (strcat km "+00" m))
  200.  (if
  201.    (and
  202.    (or
  203.    (= mr 10)
  204.    (and
  205.    (> mr 10)
  206.    (< mr 100)
  207.    )
  208.    )
  209.    (or
  210.    (> kmr 0)
  211.    (= kmr 0)
  212.    )
  213.    )
  214.    (setq km+m (strcat km "+0" m))
  218.  (if
  219.    (and
  220.    (or
  221.    (= mr 100)
  222.    (> mr 100)
  223.    )
  224.    (or
  225.      (> kmr 0)
  226.      (= kmr 0)
  227.      )
  228.    )
  230.    (setq km+m(strcat km "+" m))
  232.  (if
  233.    (and
  234.    (< mr 0)
  235.    (or
  236.      (< kmr 0)
  237.      (= kmr 0)
  238.      )
  239.    )
  240.    (setq km+m (strcat km m))
  242.    (if
  243.    (and
  244.    (= mr 0)
  245.    (or
  246.      (< kmr 0)
  247.      (= kmr 0)
  248.      )
  249.    )
  250.    (setq km+m (strcat km "-00" (rtos (abs mr) 2 2)))
  254.    );; end if
  255.    );; end if
  256.    );; end if
  257.    );; end if
  258.    );; end if
  259.  
  261.  );; end progn
  262. );; end if
  263.  
  264.  );;; end km+mmm.mm
  272. ;****************************************************************************
  274. (terpri)   
  275. (PRINC "PO for profiles! ***Created by Aamer Hameed Awan (Bin Atek Est. MEDINA)")
  278. ;****************************************************************************
回复

使用道具 举报

Salama

7

主题

23

帖子

16

银币

初来乍到

Rank: 1

铜币
35
发表于 2022-7-5 23:46:20 | 显示全部楼层
excel文件与lisp一起用于绘制道路纵断面
 
 
http://www.4shared.com/folder/BWN-_67G/road_profile_xls__lisp.html
回复

使用道具 举报

Snownut

4

主题

194

帖子

192

银币

初来乍到

Rank: 1

铜币
25
发表于 2022-7-5 23:50:33 | 显示全部楼层
现在还不清楚你在追求什么，似乎你用这些表情符号删除了部分代码。
回复

使用道具 举报

MSasu

35

主题

2471

帖子

2447

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
174
发表于 2022-7-5 23:53:47 | 显示全部楼层
Salama，这些表情是因为你使用引号键而不是代码发布代码-请返回并编辑你的帖子，以遵循这些建议。它看起来会好得多。
请注意，高级编辑器底部有一个复选框（Go advanced按钮），允许您“禁用文本中的微笑”。
回复

使用道具 举报

MSasu

35

主题

2471

帖子

2447

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
174
发表于 2022-7-5 23:55:35 | 显示全部楼层
我承认我只看了你的代码一眼，但似乎没有从Excel文件中读取数据的部分；你确定你发布的内容中没有其他文件吗？顺便问一下，这个代码是怎么被你拥有的？
 
如果这在早期版本的AutoCAD中有效，请注意2014版新增了一些安全设置，这可能会阻止用户运行自定义工具。似乎与APPAUTOLOAD、SECURELOAD和TRUSTEDPATHS系统变量有关。
回复

使用道具 举报

Salama

7

主题

23

帖子

16

银币

初来乍到

Rank: 1

铜币
35
发表于 2022-7-5 23:58:05 | 显示全部楼层
这里是lisp文件。。
命令：PO
 
我刚刚绘制完2700米长道路的地面和设计标高的完整剖面图（Auocad 2012）。
 
要使用lisp，请执行以下步骤：
1-以累积距离形式{0,20,40,60，….etc}插入站点。
2-在每个站点{地面或设计}插入高程，一次一个。
3-将两个桩号+高程复制到名为{with lisp}的excel表中，粘贴到命名列{PROFILE DATA，桩号级别}。
 
4-Excel应在运行lisp{po}后自动创建桩号+高程的组合集，以将其粘贴到Autocad中。
 
5-不要忘记基准。
 
..................
 
*绘制纵断面后，纵断面上显示了一组高程，用3位小数。。。如何将这些小数设置为2。
个人资料采购订单。lsp
回复

使用道具 举报

MSasu

35

主题

2471

帖子

2447

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
174
发表于 2022-7-6 00:03:05 | 显示全部楼层
萨拉玛，如果你有问题，请在这里发布到论坛，而不是使用私人信息服务；只是这种方式会得到更多的关注，从而得到更多更好的支持。
 
关于例程在AutoCAD 2014中不起作用的事实，我已经在上面向您提出了一个建议。你试过了吗？
您还谈到了一条错误消息-在这里发布可能会有用。
 
至于评估你的工具，我恐怕不能这样做，因为我不知道你的领域。AutoCAD目前也没有。很抱歉
回复

使用道具 举报

12下一页
返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-11 01:31 , Processed in 0.663643 second(s), 75 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表