设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › [求助]运行于R14下的lisp如何修改运行于2000以上版本
返回列表 发新帖
查看: 1220|回复: 6

[求助]运行于R14下的lisp如何修改运行于2000以上版本

[复制链接]
lijian1202
发表于 2006-3-10 22:29 | 显示全部楼层 |阅读模式
(defun c:f ()
;;; 接口和过滤=========================================================
 (setq scl "1:100")
 (initget 1 "C  E") (setq lugg (getkword "Words in language ( C - Chinese / E - English) :"));;语言
 (setq m 1 k 1) (while (/= k ":") (setq k (substr scl  m 1)) (setq m (+ 1 m)))
 (setq s (/ (atof (substr scl m)) (atof scl)));;比例及比例值
 (mapcar 'set '(tc1 tc2 tc3 tc4 tc5 tc6 tc7 tc8)  '( 420.0 304.0  390.0 284.0  380.0 274.0  8  6));; 图框
(command "limits" "" (strcat (rtos (* tc1 s)) "," (rtos (* tc2 s)))  "zoom" "all" "units" "2" "2" "1" "1" "0" "")
(setq  p00 (list 0 0)  p001 (polar (polar p00 0 (* 25 s)) (/ pi 2) (* 5 s)));;p00图框基点
(setq mj1 (polar (polar p001 0 (* 50 s)) (/ pi 2) (* 180 s))) ;;mj1;;;码头边缘基点mj1
;;图框  ---------------------------------------------------------
(defun tkx ()
 (command "pline" p001 "w" (* 0.5 s) ""  (setq p002 (polar p001 0 (* tc3 s)))
                               (setq p003 (polar p002 (/ pi 2) (* tc4 s)))  (setq p004 (polar p003 pi (* tc3 s))) "c"
;;; 内框线 --------------------------;
                   "pline" (setq p01(polar(polar p001 0(* 5 s))(/ pi 2)(* 5 s))) "w" (* 0.3 s) ""
                               (setq p02 (polar p01 0 (* tc5 s))) (setq p03 (polar p02 (/ pi 2) (* tc6 s)))
                               (setq p04 (polar p03 pi (* tc5 s))) "c")
;;;分区线 / 对折线 ---------------
 (command "pline" (setq p (polar p004 0 (* (/ tc3 2) s))) (polar p (* pi 1.5) (* 10 s)) ""
                   "pline" (setq p (polar p004 (* pi 1.5) (* (/ tc4 2) s))) (polar p 0 (* 10 s)) ""
                   "pline" (setq p (polar p002 pi (* (/ tc3 2) s))) (polar p (/ pi 2) (* 10 s)) "")
;;等分线 ---------
 (setq t 0)  (repeat (- tc7 1) (setq t (1+ t))
                   (command "line" (setq p (polar p04 0 (* t (/ tc5 tc7) s))) (polar p (/ pi 2) (* 5 s)) ""
                                     "line" (setq p (polar p01 0 (* t (/ tc5 tc7) s))) (polar p (* pi 1.5) (* 5 s)) ""))
 (setq t 0)  (repeat (- tc8 1) (setq t (1+ t))
                   (command "line" (setq p (polar p04 (* pi 1.5) (* t (/ tc6 tc8) s))) (polar p pi (* 5 s)) ""
                                      "line" (setq p (polar p03 (* pi 1.5) (* t (/ tc6 tc8)s))) (polar p 0 (* 5 s)) ""))
;;; 分区标志 ------------------------;
 (setq pt (polar p04 (/ pi 2) (* 2.5 s))  pu(polar p01 (* pi 1.5) (* 2.5 s))   t -1)
 (repeat tc7 (setq t (1+ t))
  (command "text" "j" "m" (polar pt 0 (* (+ 0.5 t) (/ tc5 tc7) s)) (* 3 s) 0 (+ t 1)
                    "text" "j" "m" (polar pu 0 (* (+ 0.5 t) (/ tc5 tc7) s)) (* 3 s) 0 (+ t 1)))
 (setq pl (polar p04 pi (* 2.5 s))  pr (polar p03 0 (* 2.5 s))  t -1)
 (repeat tc8 (setq t (1+ t))
     (command "text" "j" "m" (polar pl (* pi 1.5) (* (+ t 0.5) (/ tc6 tc8) s)) (* 3 s) 0 (chr (+ t 65))
                       "text" "j" "m" (polar pr (* pi 1.5) (* (+ t 0.5) (/ tc6 tc8) s)) (* 3 s) 0 (chr (+ t 65))))
;;; 标题栏 ===========================================================
 (command "pline" (setq p05 (polar p002 (/ pi 2) (* 26.0 s)))  (setq p06 (polar p05 pi (* 180 s)))
                               (setq p07 (polar p06 (* pi 1.5) (* 26.0 s))) "")
(command   "trim" (entlast) "" "f" (polar p02 pi (* 2 s)) (polar p02 0 (* 2 s)) "" ""
                    "erase" "c" (polar p07 (/ pi 4) (* 3 s)) (polar p05 (* pi 1.25) (* 3 s)) "")
;;;栏线 -------------------------------
 (command "pline" (setq p (polar p05 (* pi  1.5) (* 8 s))) (polar p pi (* 180 s)) ""
                   "pline" (setq p (polar p07 0 (* 45 s))) (polar p (/ pi 2) (* 18.0 s))""
                   "pline" (setq p (polar p07 0 (* 120 s))) (polar p (/ pi 2) (* 18.0 s)) "")
 (setq tt '('(4.5 0 0 120) '(9 0 0 45) '(13.5 0 0 45) '(9 120 0 60) '(0 15 v 18) '(0 30 v 18) '(0 82.5 v 4.5))  t -1)
 (repeat 7 (setq t (1+ t)) (mapcar 'set '(t1 t2 t3 t4) (last(nth t tt)))
   (command "line" (setq p (polar (polar p07 (/ pi 2) (* t1 s)) 0 (* t2 s))) (polar p(if (= t3 0) 0 (/ pi 2)) (* t4 s)) ""))
;;;标题栏标题文字 -----------------------
 (setq tt '('(7.5 2.25 "工艺" "Appr") '(7.5 6.75 "审核" "Chek") '(7.5 11.25 "设计" "Desn")
               '(22.5 15.75 "签字" "Name") '(37.5 15.75 "日  期" "Date") '(63.75 2.25 "第         页" "Page :       ")
               '(101.25 2.25 "共          页" "Pages:       "))  t -1)
 (repeat 7 (setq t (1+ t)) (mapcar 'set '(t1 t2 t3 t4) (last(nth t tt)))
   (command "text" "j" "m" (polar (polar p07 0 (* t1 s)) (/ pi 2) (* t2 s)) (* 2.5 s) 0 (if (= lugg "C") t3 t4)))
(command "text" "j" "m" (polar (polar p05 pi (* 90 s)) (* pi 1.5) (* 4 s)) (* 4 s) 0
                            (if (= lugg "E") "MARINE LAODING ARM OPERATION ENVELOPE"
                                                   "船 用 装 载 臂 操 作 包 络 线 图" ))
(command "text" "j" "m" (polar (polar p07 0 (* 150 s)) (/ pi 2) (* 4.5 s)) (* 3.5 s) 0
                            (if (= lugg "C") "远大装载技术有限公司" "T.S.D"))
(setq name (getstring "船用转载臂型号："))
(command "text" "j" "m" (polar (polar p07 0 (* 82.5 s)) (/ pi 2) (* 11.25  s)) (* 5 s) 0 name ));;tkx
回复

使用道具 举报

dqs007
发表于 2006-3-11 08:30 | 显示全部楼层
lijian1202发表于2006-3-10 22:29:00回复：（lijian1202）运行于R14下的lisp如何修改运行于2000以上版本

一般来说,根本不需要修改即可!

回复 支持 反对

使用道具 举报

lijian1202
 楼主| 发表于 2006-3-13 09:28 | 显示全部楼层
谢谢 不过在2000版上绘不出图形！请问为何？
回复 支持 反对

使用道具 举报

ljpnb
发表于 2006-3-13 10:32 | 显示全部楼层
帮你修改了一下，有几个错误，最大的问题就是用“T”来当变量，这个在2000以上的版本已经不能这样用了
  3. (defun c:test()
  4. ;;; 接口和过滤=========================================================
  5.   (setq scl "1:100")
  6.   (initget 1 "C  E")
  7.   (setq
  8.     lugg (getkword "Words in language ( C - Chinese / E - English) :"
  9.   )
  10.   )
  11.   ;;语言
  12.   (setq m 1
  13. k 1
  14.   )
  15.   (while (/= k ":")
  16.     (setq k (substr scl m 1))
  17.     (setq m (+ 1 m))
  18.   )
  19.   (setq s (/ (atof (substr scl m)) (atof scl)))
  20.   ;;比例及比例值
  21.   (mapcar 'set
  22.    '(tc1 tc2 tc3 tc4 tc5 tc6 tc7 tc8)
  23.    '(420.0 304.0 390.0 284.0 380.0 274.0 8 6)
  24.   )
  25.   ;; 图框
  26.   (command "limits"
  27.     ""
  28.     (strcat (rtos (* tc1 s)) "," (rtos (* tc2 s)))
  29.     "zoom"
  30.     "all"
  31.     "units"
  32.     "2"
  33.     "2"
  34.     "1"
  35.     "1"
  36.     "0"
  37.     ""
  38.   )
  39.   (setq p00  (list 0 0)
  40. p001 (polar (polar p00 0 (* 25 s)) (/ pi 2) (* 5 s))
  41.   )
  42.   ;;p00图框基点
  43.   (setq mj1 (polar (polar p001 0 (* 50 s)) (/ pi 2) (* 180 s)))
  44.   (tkx)
  45. )
  46. ;;mj1;;;码头边缘基点mj1
  47. ;;图框  ---------------------------------------------------------
  48. (defun tkx ()
  49.   (command "pline"
  50.     p001
  51.     "w"
  52.     (* 0.5 s)
  53.     ""
  54.     (setq p002 (polar p001 0 (* tc3 s)))
  55.     (setq p003 (polar p002 (/ pi 2) (* tc4 s)))
  56.     (setq p004 (polar p003 pi (* tc3 s)))
  57.     "c"
  58. ;;; 内框线 --------------------------;
  59.     "pline"
  60.     (setq p01 (polar (polar p001 0 (* 5 s)) (/ pi 2) (* 5 s)))
  61.     "w"
  62.     (* 0.3 s)
  63.     ""
  64.     (setq p02 (polar p01 0 (* tc5 s)))
  65.     (setq p03 (polar p02 (/ pi 2) (* tc6 s)))
  66.     (setq p04 (polar p03 pi (* tc5 s)))
  67.     "c"
  68.   )
  69. ;;;分区线 / 对折线 ---------------
  70.   (command "pline"
  71.     (setq p (polar p004 0 (* (/ tc3 2) s)))
  72.     (polar p (* pi 1.5) (* 10 s))
  73.     ""
  74.     "pline"
  75.     (setq p (polar p004 (* pi 1.5) (* (/ tc4 2) s)))
  76.     (polar p 0 (* 10 s))
  77.     ""
  78.     "pline"
  79.     (setq p (polar p002 pi (* (/ tc3 2) s)))
  80.     (polar p (/ pi 2) (* 10 s))
  81.     ""
  82.   )
  83.   ;;等分线 ---------
  84.   (setq i 0)
  85.   (repeat (- tc7 1)
  86.     (setq i (1+ i))
  87.     (command "line"
  88.       (setq p (polar p04 0 (* i (/ tc5 tc7) s)))
  89.       (polar p (/ pi 2) (* 5 s))
  90.       ""
  91.       "line"
  92.       (setq p (polar p01 0 (* i (/ tc5 tc7) s)))
  93.       (polar p (* pi 1.5) (* 5 s))
  94.       ""
  95.     )
  96.   )
  97.   (setq i 0)
  98.   (repeat (- tc8 1)
  99.     (setq i (1+ i))
  100.     (command "line"
  101.       (setq p (polar p04 (* pi 1.5) (* i (/ tc6 tc8) s)))
  102.       (polar p pi (* 5 s))
  103.       ""
  104.       "line"
  105.       (setq p (polar p03 (* pi 1.5) (* i (/ tc6 tc8) s)))
  106.       (polar p 0 (* 5 s))
  107.       ""
  108.     )
  109.   )
  110. ;;; 分区标志 ------------------------;
  111.   (setq pt (polar p04 (/ pi 2) (* 2.5 s))
  112. pu (polar p01 (* pi 1.5) (* 2.5 s))
  113. i  -1
  114.   )
  115.   (repeat tc7
  116.     (setq i (1+ i))
  117.     (command "text"
  118.       "j"
  119.       "m"
  120.       (polar pt 0 (* (+ 0.5 i) (/ tc5 tc7) s))
  121.       (* 3 s)
  122.       0
  123.       (+ i 1)
  124.       "text"
  125.       "j"
  126.       "m"
  127.       (polar pu 0 (* (+ 0.5 i) (/ tc5 tc7) s))
  128.       (* 3 s)
  129.       0
  130.       (+ i 1)
  131.     )
  132.   )
  133.   (setq pl (polar p04 pi (* 2.5 s))
  134. pr (polar p03 0 (* 2.5 s))
  135. i  -1
  136.   )
  137.   (repeat tc8
  138.     (setq i (1+ i))
  139.     (command "text"
  140.       "j"
  141.       "m"
  142.       (polar pl (* pi 1.5) (* (+ i 0.5) (/ tc6 tc8) s))
  143.       (* 3 s)
  144.       0
  145.       (chr (+ i 65))
  146.       "text"
  147.       "j"
  148.       "m"
  149.       (polar pr (* pi 1.5) (* (+ i 0.5) (/ tc6 tc8) s))
  150.       (* 3 s)
  151.       0
  152.       (chr (+ i 65))
  153.     )
  154.   )
  155. ;;; 标题栏 ===========================================================
  156.   (command "pline"
  157.     (setq p05 (polar p002 (/ pi 2) (* 26.0 s)))
  158.     (setq p06 (polar p05 pi (* 180 s)))
  159.     (setq p07 (polar p06 (* pi 1.5) (* 26.0 s)))
  160.     ""
  161.   )
  162.   (command "trim"
  163.     (entlast)
  164.     ""
  165.     "f"
  166.     (polar p02 pi (* 2 s))
  167.     (polar p02 0 (* 2 s))
  168.     ""
  169.     ""
  170.     "erase"
  171.     "c"
  172.     (polar p07 (/ pi 4) (* 3 s))
  173.     (polar p05 (* pi 1.25) (* 3 s))
  174.     ""
  175.   )
  176. ;;;栏线 -------------------------------
  177.   (command "pline"
  178.     (setq p (polar p05 (* pi 1.5) (* 8 s)))
  179.     (polar p pi (* 180 s))
  180.     ""
  181.     "pline"
  182.     (setq p (polar p07 0 (* 45 s)))
  183.     (polar p (/ pi 2) (* 18.0 s))
  184.     ""
  185.     "pline"
  186.     (setq p (polar p07 0 (* 120 s)))
  187.     (polar p (/ pi 2) (* 18.0 s))
  188.     ""
  189.   )
  190.   (setq tt '('(4.5 0 0 120)  '(9 0 0 45)
  191.       '(13.5 0 0 45)  '(9 120 0 60)
  192.       '(0 15 v 18)  '(0 30 v 18)
  193.       '(0 82.5 v 4.5)
  194.      )
  195. i  -1
  196.   )
  197.   (repeat 7
  198.     (setq i (1+ i))
  199.     (mapcar 'set '(t1 t2 t3 t4) (last (nth i tt)))
  200.     (command "line"
  201.       (setq p (polar (polar p07 (/ pi 2) (* t1 s)) 0 (* t2 s)))
  202.       (polar p
  203.       (if (= t3 0)
  204.         0
  205.         (/ pi 2)
  206.       )
  207.       (* t4 s)
  208.       )
  209.       ""
  210.     )
  211.   )
  212. ;;;标题栏标题文字 -----------------------
  213.   (setq tt '('(7.5 2.25 "工艺" "Appr")
  214.       '(7.5 6.75 "审核" "Chek")
  215.       '(7.5 11.25 "设计" "Desn")
  216.       '(22.5 15.75 "签字" "Name")
  217.       '(37.5 15.75 "日  期" "Date")
  218.       '(63.75 2.25 "第         页" "Page :       ")
  219.       '(101.25 2.25 "共          页" "Pages:       ")
  220.      )
  221. i  -1
  222.   )
  223.   (repeat 7
  224.     (setq i (1+ i))
  225.     (mapcar 'set '(t1 t2 t3 t4) (last (nth i tt)))
  226.     (command "text"
  227.       "j"
  228.       "m"
  229.       (polar (polar p07 0 (* t1 s)) (/ pi 2) (* t2 s))
  230.       (* 2.5 s)
  231.       0
  232.       (if (= lugg "C")
  233.         t3
  234.         t4
  235.       )
  236.     )
  237.   )
  238.   (command "text"
  239.     "j"
  240.     "m"
  241.     (polar (polar p05 pi (* 90 s)) (* pi 1.5) (* 4 s))
  242.     (* 4 s)
  243.     0
  244.     (if (= lugg "E")
  245.       "MARINE LAODING ARM OPERATION ENVELOPE"
  246.       "船 用 装 载 臂 操 作 包 络 线 图"
  247.     )
  248.   )
  249.   (command "text"
  250.     "j"
  251.     "m"
  252.     (polar (polar p07 0 (* 150 s)) (/ pi 2) (* 4.5 s))
  253.     (* 3.5 s)
  254.     0
  255.     (if (= lugg "C")
  256.       "远大装载技术有限公司"
  257.       "T.S.D"
  258.     )
  259.   )
  260.   (setq name (getstring "船用转载臂型号："))
  261.   (command "text"
  262.     "j"
  263.     "m"
  264.     (polar (polar p07 0 (* 82.5 s)) (/ pi 2) (* 11.25 s))
  265.     (* 5 s)
  266.     0
  267.     name
  268.   )
  269. )
  270. ;;tkx
回复 支持 反对

使用道具 举报

f5612140
发表于 2006-3-13 12:14 | 显示全部楼层
ljpnb发表于2006-3-13 10:32:00 帮你修改了一下，有几个错误，最大的问题就是用“T”来当变量，这个在2000以上的版本已经不能这样用了

不是很了解,用2004

指令: (SETQ T 100)
100

指令: (* T 1.2)
120.0

指令: (SETQ T "ABC")
"ABC"

指令: (STRCAT T "DEF")
"ABCDEF"

回复 支持 反对

使用道具 举报

ljpnb
发表于 2006-3-13 12:24 | 显示全部楼层

用T这个来当变量，会出现提示“是否进入中断循环”这样提示，因为“T”被认定是内部的一个逻辑判断符号，应尽量避免使用。

回复 支持 反对

使用道具 举报

lijian1202
 楼主| 发表于 2006-3-13 22:54 | 显示全部楼层
谢谢各位高手！向您们学习！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2024-5-19 13:04 , Processed in 0.212351 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表