求助两个程序、一个问题

wmz · 发表于 2005-10-9 19:41:00

根据你提供的错误提示,我判断可能为数串之间的问题,再改写一下:

(defun c:TESTT(/ Fn L PP P P0 H ZF)
   (vl-load-com)
(setvar "PDMODE" 33)(setvar "PDSIZE" 0.25)
(setq Fn "c:/test.txt")
(SETQ F (OPEN Fn "r"))
(WHILE (setq L (READ-LINE F))
    (setq PP (read (strcat "(" L ")")))
    (setq P0 (cdr PP)
               H (last PP)
               P (list (cadr P0) (car P0) H)
    )
    (if (/= (eval (car PP)) nil)
        (setq ZF (rtos (car PP) 2 0))
      (progn
        (setq ZF (vl-string-subst "" "" (car PP)))
      )
    )
    (command "POINT" P)
    (command "text" P "2.0" "0" ZF)
)
(close F)
)

zhongguola · 发表于 2005-10-10 15:37:00

谢谢您的程序。麻烦您再改一好吗？谢谢你您了。

一楼的帖子是这样写的：根据这些坐标自动生成半径为0.2的圆，并能根据坐标顺序生成点号（字高为1），点号插入点距圆心为1.

一: 您的程序生成的点号插入点是在坐标点上（也就是所谓的圆心上),而不是离圆心的距离为1,且字高为1

二: 您的程序生成的圆,其属性是POINT,而不是我所说的圆即"CIRCLE"

麻烦您了!!!!

谢谢!!!!!!!!!!!!!!1

ZZXXQQ · 发表于 2005-10-10 16:35:00

在wmz程序基础上改的，看看能否满足楼主要求。

(defun c:TEST (/ F L PP P P0 H ZF)
(setvar "cmdecho" 0)
(setq oldos (getvar "osmode"))
(setvar "osmode" 0)
(vl-load-com)
(SETQ F (OPEN "c:/test.txt" "r"))
(WHILE (setq L (READ-LINE F))
(setq PP (read (strcat "(" L ")"))
P0 (cdr PP)
H (last PP)
P (POLAR P0 (/ PI 2) 1))
(setq ZF (strcat (vl-string-subst "" "" (car PP)) "(" (rtos h 2 3) ")"))
(command "CIRCLE" P0 "0.2" "text" P 1 0 ZF)
)
(close F)
(setvar "osmode" oldos)
(setvar "cmdecho" 1)
(princ)
)

zhongguola · 发表于 2005-10-10 21:23:00

23楼的程序在运行时会出现以下问题：

CAD命令行提示：错误：参数类型错误，（or stringp symbolp ):1

xyp1964 · 发表于 2005-10-10 21:43:00

;;;sjsr (数据输入)
(defun c:sjsr ()
(cmdla0)
(jzhz)
(setvar "osmode" 0)
(setq ffn (getfiled "\n数据文件" "" "txt" 8)
f (open ffn "r")
)
(WHILE (setq L (READ-LINE F))
(setq pp (read (strcat "(" L ")"))
p0 (cdr pp)
h (last pp)
p (list (car p0) (cadr p0) h)
p1 (polar p (* pi 0.5) 1.5)
zf (rtos h 2 3)
)
(mkla "点位" 4)
(command "circle" p 0.2)
(mkla "高程" 3)
(command "text" "j" "mc" p1 1 "0" zf)
)
(close F)
(cmdla1)
)
(pxyp"sjsr (数据输入)")

zhongguola · 发表于 2005-10-11 09:11:00

25楼的程序标注的只是Z坐标,劳驾您改一下,让它只标注每一个点号也就是点名.

谢谢您了!!!!!!!!!!!!!!!!1

zhongguola · 发表于 2005-10-12 08:25:00

大哥们,帮帮忙吧！

wmz · 发表于 2005-10-12 18:33:00

本帖最后由作者于 2005-10-14 8:03:28 编辑

再改写一下

(defun c:TEST(/ F Fn PP P0 P H)

   (vl-load-com)
(setq Fn (getfiled "\n数据文件" "" "txt;*" 8)
         F (open Fn "r")
)
(WHILE (setq L (READ-LINE F))
    (setq PP (read (strcat "(" L ")"))
          P0 (cdr PP)
           H (last PP)
           P (list (cadr P0) (car P0) H)
          P0 (polar P -0.5 1.0)
    )
    (if (eval (car PP))
        (setq ZF (rtos (car PP) 2 0))
      (progn
        (setq ZF (vl-string-subst "" "" (car PP)))
      )
    )
    (command "circle" P 0.2)
    (command "text" P0 "1.0" "0" ZF)
)
(close F)
)

zhongguola · 发表于 2005-10-13 10:00:00

28楼的程序无法运行,

命令:test

命令行提示:未知命令

wmz · 发表于 2005-10-13 12:45:00

本帖最后由作者于 2005-10-14 8:05:07 编辑

zhongguola发表于2005-10-13 10:00:00 28楼的程序无法运行, 命令:test 命令行提示:未知命令

提示"未知命令"说明程序没有加载嘛!你自己看一看唦,如果是程序本身的问题,不会是这样的提示.你再下载去试一试,我已经编辑过了．

账号		自动登录	找回密码
密码			注册

求助两个程序、一个问题

本帖子中包含更多资源