[求助]众位大侠，请看看我的程序怎么改。

lxyufo · 发表于 2003-4-16 13:51:00

我的这个程序是将范围内的内容导出到文本文件中，但是我的比例内容（1：10）导出后的内容却是（：10）前面的 1 没有了。我的程序如下：
(defun BL ()
  (setq pblx (- (car p1) w3))
  (setq pbly (+ (cadr p1) h1 h2))
  (setq pbly1 (+ (cadr p1) h1 h2 h3))
  (setq pblx1 (- pblx wbl))
  (setq pbl (list pblx pbly))
  (setq pbl1 (list pblx1 pbly1))
  (setq i3 0)
  (setq ssw3 (ssget "w" pbl pbl1))
  (if ssw3
(progn
   (repeat (sslength ssw3)
      (setq ssn3 (ssname ssw3 i3))
      (setq ssdata3 (entget ssn3))
      (setq sstyp3 (cdr (assoc 0 ssdata3)))
      (if (= sstyp3 "MTEXT")
      (progn
         (setq txt3 (cdr (assoc 1 ssdata3)))
         (setq txt3 (vl-string-trim "{}" txt3))
         (if       (= (type (read txt3)) 'SYM)
            (progn
            (setq txta3 (vl-symbol-name (read txt3)))
            (if (/= (strlen txt3) (strlen txta3))
               (progn
                  (setq txta3 (strcase txta3 0))
                  (setq txt3 (vl-string-left-trim txta3 txt3))
                  (setq txt3 (vl-string-left-trim ";" txt3))
               )
            )
            )
         )
      )
      )
      (if (= sstyp3 "TEXT")
      (progn
         (setq txt3 (cdr (assoc 1 ssdata3)))
      )
      )
      (setq i3 (1+ i3))
   )
)
(princ "nil" ff)
  )
)
请各位看看在什么地方添写一些什么代码，才能改变这种情况。谢谢！！
[此贴子已经被作者于2003-4-16 13:50:34编辑过]

[求助]众位大侠，请看看我的程序怎么改。

发表回复

精选推荐