» LISPのブログ記事

ちょこっと話題になっていたので・・・

寸法値の行間隔って変更したいですよね~!

オブジェクトプロパティ管理の中にに入ってて良いと思うんですけど、ないんですよね凸(–メ)

かなり前に作ったlispをアップ♪

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;      マルチテキスト行間隔の尺度指定コマンド       ;;;;;;;;;;
;;;;;;  vol.1  2007.11.06                                ;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;注記
;;;マルチテキストのみ対応
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun C:my_dimHPS(/ ss1 n i G1 T1 T2)

;;エラー処理
  (defun *error* ($)
    (setvar "CMDECHO" 1)                                   ; CMDECHO は通常1にするべきなのでわざわざ保存しない
    (and $ (princ $))                                      ; エラー時は$にエラー内容が入っている
    (princ)
  )


;;変数変更
  (setvar "cmdecho" 0)                                     ;cmdechoを0(非表示)にする


;;行間隔を指定
  (setq G1 (getreal "\n行間隔を入力:"))                    ;行間隔をG1に代入


;;くり返し図形を選択し行間隔変更;
  (while                                                   ;whileの始まり
    (not (setq ss1 (ssget '((0 . "MTEXT,DIMENSION")))))    ;繰り返し条件設定(オブジェクトを選択)(notでTじゃない場合がくり返しにする)
    (princ "\nマルチテキストが選択されていません.")        ;コマンドバーに表示
  )                                                        ;end:while

  (setq n (sslength ss1))                                  ;選択されたオブジェクトの数をnに代入
  (setq i 0)                                               ;iに0を代入

  (while                                                   ;whileの始まり
    (< i n)                                                ;繰り返し条件設定(0個よりオブジェクトの数がある場合)
      (setq T1 (ssname ss1 i))                             ;図形名をT1に代入(条件と=な場合)
      (setq T2 (entget T1))                                ;図形情報リストをT2に代入

      (if (/= "MTEXT" (cdr (assoc 0 T2)))                  ;選んだオブジェクトがマルチテキストかどうか?の判定式
        (progn                                             ;/=MTEXTの場合(=DIMENSIONの場合)
          (setq T2 (subst (cons 41 G1) (assoc 41 T2) T2))  ;T2の行間隔をG1に変更しT2に代入
          (entmod T2)                                      ;T2のリストの更新
        )                                                  ;end:/=MTEXTの場合
        (progn                                             ;=MTEXTの場合
          (setq T2 (subst (cons 44 G1) (assoc 44 T2) T2))  ;T2の行間隔をG1に変更しT2に代入
          (entmod T2)                                      ;T2のリストの更新
        )                                                  ;end:=MTEXTの場合
      )                                                    ;end:if
    (setq i (1+ i))                                        ;iに1を足してiに代入
  )                                                        ;end:while


;;変数を変更前に戻す
  (setvar "cmdecho" 1)                                     ;cmdecho(コマンドバーの文字表示・非表示)を元にもどす


;;エラー処理
  (*error* nil)


;;終わり
  (princ)                                                  ;静かに終わる
)                                                          ;end

はみでた・・・(T^T)

カレンダー

2021年10月
« 12月    
 123
45678910
11121314151617
18192021222324
25262728293031

リアルタイム市況

Twitter

Follow @megubuta (85 followers)

カテゴリー

    Category Order could not understand your category HTML. Please do the following:

    • Disable all plugins except for category order to see if some other plugin is causing the problem. If the problem goes away, re-enable each plugin until you find the incompatible one.
    • Try switching to a different theme, like the WordPress default theme.

    Once you have tried the above steps, email david@coppit.org with the results of these debugging steps. Also include the following information:

    Original HTML:
    <li class="cat-item cat-item-8 current-cat-parent current-cat-ancestor"><a href="https://megu-megu.com/wordpress/?cat=8" title="AUTO CAD">AUTO CAD</a> (80)
    </li>
    <li class="cat-item cat-item-12"><a href="https://megu-megu.com/wordpress/?cat=12" >Civil3D</a> (16)
    </li>
    <li class="cat-item cat-item-17 current-cat"><a href="https://megu-megu.com/wordpress/?cat=17" >LISP</a> (1)
    </li>
    <li class="cat-item cat-item-10"><a href="https://megu-megu.com/wordpress/?cat=10" >PDF</a> (3)
    </li>
    <li class="cat-item cat-item-21"><a href="https://megu-megu.com/wordpress/?cat=21" title="パワーポイント">ppt</a> (3)
    </li>
    <li class="cat-item cat-item-22"><a href="https://megu-megu.com/wordpress/?cat=22" title="Windows">Windows</a> (9)
    </li>
    <li class="cat-item cat-item-9"><a href="https://megu-megu.com/wordpress/?cat=9" >その他</a> (30)
    </li>
    <li class="cat-item cat-item-37"><a href="https://megu-megu.com/wordpress/?cat=37" >その他</a> (230)
    </li>
    <li class="cat-item cat-item-7"><a href="https://megu-megu.com/wordpress/?cat=7" title="エクセル">エクセル</a> (9)
    </li>
    <li class="cat-item cat-item-28"><a href="https://megu-megu.com/wordpress/?cat=28" >グアム:2010冬</a> (6)
    </li>
    <li class="cat-item cat-item-27"><a href="https://megu-megu.com/wordpress/?cat=27" >グアム:2011冬</a> (8)
    </li>
    <li class="cat-item cat-item-29"><a href="https://megu-megu.com/wordpress/?cat=29" >グアム:2012冬</a> (6)
    </li>
    <li class="cat-item cat-item-26"><a href="https://megu-megu.com/wordpress/?cat=26" >グアム:2012春</a> (7)
    </li>
    <li class="cat-item cat-item-39"><a href="https://megu-megu.com/wordpress/?cat=39" >グアム:2013冬</a> (6)
    </li>
    <li class="cat-item cat-item-40"><a href="https://megu-megu.com/wordpress/?cat=40" >グアム:2014春</a> (7)
    </li>
    <li class="cat-item cat-item-47"><a href="https://megu-megu.com/wordpress/?cat=47" >グアム:2015冬</a> (4)
    </li>
    <li class="cat-item cat-item-44"><a href="https://megu-megu.com/wordpress/?cat=44" title="グアム:2015春">グアム:2015春</a> (7)
    </li>
    <li class="cat-item cat-item-49"><a href="https://megu-megu.com/wordpress/?cat=49" >グアム:2017冬</a> (1)
    </li>
    <li class="cat-item cat-item-31"><a href="https://megu-megu.com/wordpress/?cat=31" >サイパン:2013春</a> (8)
    </li>
    <li class="cat-item cat-item-18"><a href="https://megu-megu.com/wordpress/?cat=18" >システム変数</a> (10)
    </li>
    <li class="cat-item cat-item-20"><a href="https://megu-megu.com/wordpress/?cat=20" title="ダイビング">ダイビング</a> (15)
    </li>
    <li class="cat-item cat-item-11"><a href="https://megu-megu.com/wordpress/?cat=11" >トラブル</a> (10)
    </li>
    <li class="cat-item cat-item-42"><a href="https://megu-megu.com/wordpress/?cat=42" >パフェ</a> (15)
    </li>
    <li class="cat-item cat-item-19"><a href="https://megu-megu.com/wordpress/?cat=19" >ワード</a> (7)
    </li>
    <li class="cat-item cat-item-32"><a href="https://megu-megu.com/wordpress/?cat=32" >事前準備</a> (9)
    </li>
    <li class="cat-item cat-item-16"><a href="https://megu-megu.com/wordpress/?cat=16" >作図方法</a> (30)
    </li>
    <li class="cat-item cat-item-36"><a href="https://megu-megu.com/wordpress/?cat=36" title="国内旅行">国内旅行</a> (33)
    </li>
    <li class="cat-item cat-item-50"><a href="https://megu-megu.com/wordpress/?cat=50" >女子会</a> (4)
    </li>
    <li class="cat-item cat-item-43"><a href="https://megu-megu.com/wordpress/?cat=43" >宅建</a> (5)
    </li>
    <li class="cat-item cat-item-38"><a href="https://megu-megu.com/wordpress/?cat=38" >年賀状</a> (7)
    </li>
    <li class="cat-item cat-item-35"><a href="https://megu-megu.com/wordpress/?cat=35" >海外旅行</a> (72)
    </li>
    <li class="cat-item cat-item-46"><a href="https://megu-megu.com/wordpress/?cat=46" >行政書士</a> (7)
    </li>
    <li class="cat-item cat-item-15"><a href="https://megu-megu.com/wordpress/?cat=15" >通販</a> (53)
    </li>
    <li class="cat-item cat-item-45"><a href="https://megu-megu.com/wordpress/?cat=45" >青森転勤</a> (4)
    </li>
    <li class="cat-item cat-item-30"><a href="https://megu-megu.com/wordpress/?cat=30" >ダイナミックブロック</a> (1)
    </li>

    Processed HTML:
    <li class="cat-item cat-item-8 current-cat-parent current-cat-ancestor"><a href="https://megu-megu.com/wordpress/?cat=8" title="AUTO CAD">AUTO CAD</a> (80)
    </li>
    <li class="cat-item cat-item-12"><a href="https://megu-megu.com/wordpress/?cat=12" >Civil3D</a> (16)
    </li>
    <li class="cat-item cat-item-17 current-cat"><a href="https://megu-megu.com/wordpress/?cat=17" >LISP</a> (1)
    </li>
    <li class="cat-item cat-item-10"><a href="https://megu-megu.com/wordpress/?cat=10" >PDF</a> (3)
    </li>
    <li class="cat-item cat-item-21"><a href="https://megu-megu.com/wordpress/?cat=21" title="パワーポイント">ppt</a> (3)
    </li>
    <li class="cat-item cat-item-22"><a href="https://megu-megu.com/wordpress/?cat=22" title="Windows">Windows</a> (9)
    </li>
    <li class="cat-item cat-item-9"><a href="https://megu-megu.com/wordpress/?cat=9" >その他</a> (30)
    </li>
    <li class="cat-item cat-item-37"><a href="https://megu-megu.com/wordpress/?cat=37" >その他</a> (230)
    </li>
    <li class="cat-item cat-item-7"><a href="https://megu-megu.com/wordpress/?cat=7" title="エクセル">エクセル</a> (9)
    </li>
    <li class="cat-item cat-item-28"><a href="https://megu-megu.com/wordpress/?cat=28" >グアム:2010冬</a> (6)
    </li>
    <li class="cat-item cat-item-27"><a href="https://megu-megu.com/wordpress/?cat=27" >グアム:2011冬</a> (8)
    </li>
    <li class="cat-item cat-item-29"><a href="https://megu-megu.com/wordpress/?cat=29" >グアム:2012冬</a> (6)
    </li>
    <li class="cat-item cat-item-26"><a href="https://megu-megu.com/wordpress/?cat=26" >グアム:2012春</a> (7)
    </li>
    <li class="cat-item cat-item-39"><a href="https://megu-megu.com/wordpress/?cat=39" >グアム:2013冬</a> (6)
    </li>
    <li class="cat-item cat-item-40"><a href="https://megu-megu.com/wordpress/?cat=40" >グアム:2014春</a> (7)
    </li>
    <li class="cat-item cat-item-47"><a href="https://megu-megu.com/wordpress/?cat=47" >グアム:2015冬</a> (4)
    </li>
    <li class="cat-item cat-item-44"><a href="https://megu-megu.com/wordpress/?cat=44" title="グアム:2015春">グアム:2015春</a> (7)
    </li>
    <li class="cat-item cat-item-49"><a href="https://megu-megu.com/wordpress/?cat=49" >グアム:2017冬</a> (1)
    </li>
    <li class="cat-item cat-item-31"><a href="https://megu-megu.com/wordpress/?cat=31" >サイパン:2013春</a> (8)
    </li>
    <li class="cat-item cat-item-18"><a href="https://megu-megu.com/wordpress/?cat=18" >システム変数</a> (10)
    </li>
    <li class="cat-item cat-item-20"><a href="https://megu-megu.com/wordpress/?cat=20" title="ダイビング">ダイビング</a> (15)
    </li>
    <li class="cat-item cat-item-11"><a href="https://megu-megu.com/wordpress/?cat=11" >トラブル</a> (10)
    </li>
    <li class="cat-item cat-item-42"><a href="https://megu-megu.com/wordpress/?cat=42" >パフェ</a> (15)
    </li>
    <li class="cat-item cat-item-19"><a href="https://megu-megu.com/wordpress/?cat=19" >ワード</a> (7)
    </li>
    <li class="cat-item cat-item-32"><a href="https://megu-megu.com/wordpress/?cat=32" >事前準備</a> (9)
    </li>
    <li class="cat-item cat-item-16"><a href="https://megu-megu.com/wordpress/?cat=16" >作図方法</a> (30)
    </li>
    <li class="cat-item cat-item-36"><a href="https://megu-megu.com/wordpress/?cat=36" title="国内旅行">国内旅行</a> (33)
    </li>
    <li class="cat-item cat-item-50"><a href="https://megu-megu.com/wordpress/?cat=50" >女子会</a> (4)
    </li>
    <li class="cat-item cat-item-43"><a href="https://megu-megu.com/wordpress/?cat=43" >宅建</a> (5)
    </li>
    <li class="cat-item cat-item-38"><a href="https://megu-megu.com/wordpress/?cat=38" >年賀状</a> (7)
    </li>
    <li class="cat-item cat-item-35"><a href="https://megu-megu.com/wordpress/?cat=35" >海外旅行</a> (72)
    </li>
    <li class="cat-item cat-item-46"><a href="https://megu-megu.com/wordpress/?cat=46" >行政書士</a> (7)
    </li>
    <li class="cat-item cat-item-15"><a href="https://megu-megu.com/wordpress/?cat=15" >通販</a> (53)
    </li>
    <li class="cat-item cat-item-45"><a href="https://megu-megu.com/wordpress/?cat=45" >青森転勤</a> (4)
    </li>
    <li class="cat-item cat-item-30"><a href="https://megu-megu.com/wordpress/?cat=30" >ダイナミックブロック</a> (1)
    </li>

    Category pattern:
    /http\:\/\/megu\-megu\.com\/wordpress\/\?cat\=(\d+)/

    Items:
    Array
    (
        [0] => <li class="cat-item cat-item-8 current-cat-parent current-cat-ancestor"><a href="https://megu-megu.com/wordpress/?cat=8" title="AUTO CAD">AUTO CAD (80)</a> </li>
        [1] => <li class="cat-item cat-item-12"><a href="https://megu-megu.com/wordpress/?cat=12" >Civil3D (16)</a> </li>
        [2] => <li class="cat-item cat-item-17 current-cat"><a href="https://megu-megu.com/wordpress/?cat=17" >LISP (1)</a> </li>
        [3] => <li class="cat-item cat-item-10"><a href="https://megu-megu.com/wordpress/?cat=10" >PDF (3)</a> </li>
        [4] => <li class="cat-item cat-item-21"><a href="https://megu-megu.com/wordpress/?cat=21" title="パワーポイント">ppt (3)</a> </li>
        [5] => <li class="cat-item cat-item-22"><a href="https://megu-megu.com/wordpress/?cat=22" title="Windows">Windows (9)</a> </li>
        [6] => <li class="cat-item cat-item-9"><a href="https://megu-megu.com/wordpress/?cat=9" >その他 (30)</a> </li>
        [7] => <li class="cat-item cat-item-37"><a href="https://megu-megu.com/wordpress/?cat=37" >その他 (230)</a> </li>
        [8] => <li class="cat-item cat-item-7"><a href="https://megu-megu.com/wordpress/?cat=7" title="エクセル">エクセル (9)</a> </li>
        [9] => <li class="cat-item cat-item-28"><a href="https://megu-megu.com/wordpress/?cat=28" >グアム:2010冬 (6)</a> </li>
        [10] => <li class="cat-item cat-item-27"><a href="https://megu-megu.com/wordpress/?cat=27" >グアム:2011冬 (8)</a> </li>
        [11] => <li class="cat-item cat-item-29"><a href="https://megu-megu.com/wordpress/?cat=29" >グアム:2012冬 (6)</a> </li>
        [12] => <li class="cat-item cat-item-26"><a href="https://megu-megu.com/wordpress/?cat=26" >グアム:2012春 (7)</a> </li>
        [13] => <li class="cat-item cat-item-39"><a href="https://megu-megu.com/wordpress/?cat=39" >グアム:2013冬 (6)</a> </li>
        [14] => <li class="cat-item cat-item-40"><a href="https://megu-megu.com/wordpress/?cat=40" >グアム:2014春 (7)</a> </li>
        [15] => <li class="cat-item cat-item-47"><a href="https://megu-megu.com/wordpress/?cat=47" >グアム:2015冬 (4)</a> </li>
        [16] => <li class="cat-item cat-item-44"><a href="https://megu-megu.com/wordpress/?cat=44" title="グアム:2015春">グアム:2015春 (7)</a> </li>
        [17] => <li class="cat-item cat-item-49"><a href="https://megu-megu.com/wordpress/?cat=49" >グアム:2017冬 (1)</a> </li>
        [18] => <li class="cat-item cat-item-31"><a href="https://megu-megu.com/wordpress/?cat=31" >サイパン:2013春 (8)</a> </li>
        [19] => <li class="cat-item cat-item-18"><a href="https://megu-megu.com/wordpress/?cat=18" >システム変数 (10)</a> </li>
        [20] => <li class="cat-item cat-item-20"><a href="https://megu-megu.com/wordpress/?cat=20" title="ダイビング">ダイビング (15)</a> </li>
        [21] => <li class="cat-item cat-item-11"><a href="https://megu-megu.com/wordpress/?cat=11" >トラブル (10)</a> </li>
        [22] => <li class="cat-item cat-item-42"><a href="https://megu-megu.com/wordpress/?cat=42" >パフェ (15)</a> </li>
        [23] => <li class="cat-item cat-item-19"><a href="https://megu-megu.com/wordpress/?cat=19" >ワード (7)</a> </li>
        [24] => <li class="cat-item cat-item-32"><a href="https://megu-megu.com/wordpress/?cat=32" >事前準備 (9)</a> </li>
        [25] => <li class="cat-item cat-item-16"><a href="https://megu-megu.com/wordpress/?cat=16" >作図方法 (30)</a> </li>
        [26] => <li class="cat-item cat-item-36"><a href="https://megu-megu.com/wordpress/?cat=36" title="国内旅行">国内旅行 (33)</a> </li>
        [27] => <li class="cat-item cat-item-50"><a href="https://megu-megu.com/wordpress/?cat=50" >女子会 (4)</a> </li>
        [28] => <li class="cat-item cat-item-43"><a href="https://megu-megu.com/wordpress/?cat=43" >宅建 (5)</a> </li>
        [29] => <li class="cat-item cat-item-38"><a href="https://megu-megu.com/wordpress/?cat=38" >年賀状 (7)</a> </li>
        [30] => <li class="cat-item cat-item-35"><a href="https://megu-megu.com/wordpress/?cat=35" >海外旅行 (72)</a> </li>
        [31] => <li class="cat-item cat-item-46"><a href="https://megu-megu.com/wordpress/?cat=46" >行政書士 (7)</a> </li>
        [32] => <li class="cat-item cat-item-15"><a href="https://megu-megu.com/wordpress/?cat=15" >通販 (53)</a> </li>
        [33] => <li class="cat-item cat-item-45"><a href="https://megu-megu.com/wordpress/?cat=45" >青森転勤 (4)</a> </li>
        [34] => <li class="cat-item cat-item-30"><a href="https://megu-megu.com/wordpress/?cat=30" >ダイナミックブロック (1)</a> </li>
    )

  • AUTO CAD (80)
  • Civil3D (16)
  • LISP (1)
  • PDF (3)
  • ppt (3)
  • Windows (9)
  • その他 (30)
  • その他 (230)
  • エクセル (9)
  • グアム:2010冬 (6)
  • グアム:2011冬 (8)
  • グアム:2012冬 (6)
  • グアム:2012春 (7)
  • グアム:2013冬 (6)
  • グアム:2014春 (7)
  • グアム:2015冬 (4)
  • グアム:2015春 (7)
  • グアム:2017冬 (1)
  • サイパン:2013春 (8)
  • システム変数 (10)
  • ダイビング (15)
  • トラブル (10)
  • パフェ (15)
  • ワード (7)
  • 事前準備 (9)
  • 作図方法 (30)
  • 国内旅行 (33)
  • 女子会 (4)
  • 宅建 (5)
  • 年賀状 (7)
  • 海外旅行 (72)
  • 行政書士 (7)
  • 通販 (53)
  • 青森転勤 (4)
  • ダイナミックブロック (1)

アーカイブ

blogランキング